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I. INTRODUCTION 


A. BACKGROUND 

The Marine Air Command and Control System (MACCS) is composed of 
agencies, equipment, and the operating procedures required to provide the Aviation 
Combat Element (ACE) commander with the means to command, coordinate, and control 
all air operations within an assigned sector, and to coordinate those air operations with 
other Services operating in the battlespace. Recognizing the need to migrate from the 
current dissimilar, or "stovepipe’, command and control (C2) systems prevalent in the 
MACCS to an open architecture which is compliant with the Department of Defense 
Information Infrastructure Common Operating Environment (DIT COE), the Marine Corps 
has endorsed a Common Aviation Command and Control System (CAC2S) concept as a 
target system architecture. The CAC2S will be required to provide the automated 
aviation planning, situational awareness, decision aid, and execution tools currently 
available to MACCS operators, but to do so within an architecture which takes full 
advantage of the common messaging, database, network, security, and display services 
provided by a DII COE compliant Command, Control, Communications, Computers, 
Intelligence (C4I) Workstation. 
B. MOTIVATION 

The MACCS incorporates sensors, controls, weapon systems, and the agencies 
which employ these tools to accomplish their doctrinal missions. Common networks 


within the MACCS include a number of DOD standard datalink networks and air 


command and control voice communications networks, all of which contribute to the 
development of a common Battlefield Awareness (BA) for a particular air/ground sector. 
Previous and current upgrades to the MACCS architecture have consisted of the 
incremental upgrading of MACCS components, primarily special purpose processors, 
display devices, and communications equipment. These components are required to meet 
a limited set of data and programming interface standards in order to ensure continuing 
interoperability. This development and fielding methodology has populated the MACCS 
inventory with a number of special purpose devices which are functionally sufficient for 
completing the MACCS mission, but are expensive to develop, procure, operate and 
maintain. Additionally, the common BA developed among MACCS operators working in 
the current architecture is constrained by the need to employ multiple "boxes" on the 
desktop, essentially "stovepipe" systems, each with a limited capacity for sharing critical 
battlespace information with other systems. Finally, MACCS operators must struggle in 
the current architecture to overcome the inefficiencies introduced by having to perform 
separate but related tasks in a number of different operating environments. 

Traditional interpretations of the purpose of the MACCS focus on the goal of 
providing a Common Operational Picture (COP) of the Air Battlefield to the MACCS 
operator. This operator could be responsible for launching Homing All The Way Killer 
(HAWK) missiles, controlling aircraft as they transit certain air sectors, or preparing the 
Air Tasking Order (ATO) for the next day's sorties. The principal means for building this 


COP, as a means to developing superior BA, has been through the processing of 


electronic contacts, both passive and active, into tracks, which are then assembled into a 
"track file." This track file is then distributed to terminals throughout the MACCS and to 
similar air operations and control centers in the other Services. Migration to a CAC2S 
architecture, which will use not only traditional sources of information to build BA, but 
also electronically generated mail, United States Message Text Format (USMTF) 
messages, and archived intelligence records, requires the development of a new concept. 
Such a concept could be envisioned as a virtual state machine, which builds BA through 
the rapid processing, correlation, storage, and retrieval of Air Battlefield information 
developed from both tactical and national resources. Each CAC2S terminal in turn will be 
a specific instance of this state machine, an instance which captures that portion of the Air 
Battlefield pertinent to that CAC2S operator's tasks. 

Though many components of the MACCS, such as the HAWK missile system and 
the AN/TPS-59 radar system, will continue to be developed as special purpose computing 
systems, much of the functionality within the MACCS 1s specified for the development of 
superior BA to provide an environment in which the most efficient decisions with the 
greatest likelihood for success in the battlespace can be made. That is, a great majority of 
the tasks required of MACCS operators specify the receipt, processing, and analysis of 
information in order to implement decisions which effect the employment of plans, 
equipment, and personnel. In examining the migration of the MACCS to the CAC2S it is 
necessary to distinguish the components of the MACCS which sense and destroy enemy 


objects, such as the AN/TPS-59 radar and the HAWK missile systems, from those which 


support the decision-making process. Once this distinction has been made, it will become 
possible to permit the design of an architecture which supports the vertical development of 
special purpose sensors and weapon systems in conjunction with the horizontal 
development of a general purpose information systems network which best supports the 
development of the MACCS operator's BA. The migration plan must recognize that the 
computing problems associated with sensors and weapon systems are different from the 
computing problems associated with decision-making tools and aids. The latter problems 
are well-researched, well-documented, and have solutions which are widely implemented 
in the commercial world. Moreover, within the DOD there is a tremendous amount of 
effort currently being devoted to the formulation of a definition of such a general purpose 
information systems architecture. 

One of the principle benefits of military computing in the information age is to 
bring coherency to the COP. The introduction of DIT COE Workstations and, in 
particular, the Maritime variant of the Global Command and Control System (GCCS), the 
Joint Maritime Command Information System (JMCIS), promises to bring to the MACCS 
common messages, data types, network communication protocols, display technology, 
security, administration, and database services. Implementation of these standards will 
significantly enhance the common BA of operators throughout the MACCS, as well as 
significantly decrease the costs associated with developing, procuring, fielding, 
maintaining, and training operators on new MACCS components. If perfect BA is the 


Holy Grail of the warfighter, and computing is certainly integral to that goal, then 


common, sophisticated messaging and database technology must be the comerstone of 
efforts to migrate legacy computing systems. The MACCS is an ideal candidate for the 
mapping of that migration path. 

There are two clearly identifiable revolutions in military computing: the first 
revolution involved the realization that computing could be used to create abstractions of 
real-world concepts, and to manipulate those abstractions in ways which provided 
meaning and intelligence to the operator trying to understand the state of the battlefield. 
This revolution was realized on special-purpose, embedded systems hardware, and 
represented a coherent ‘system-engineering" approach to the specification, design, and 
implementation of these machines and networks. Examples of these manifestations of 
special-purpose systems surround us today in the military: the Tactical Digital Link 
(TADIL) processors with their associated display subsystems and communication 
equipment; the Automated Digital Network (AUTODIN) switching centers with their 
associated processing, display, and communication subsystems; the Tactical Receive 
Equipment (TREs) with their associated processing, communication, and cryptographic 
subsystems. 

The second revolution in military computing, and the one in which we currently 
find ourselves, came about with the invention and rapid adoption of some key computing 
technology and protocols: the tremendously powerful and inexpensive microprocessor 
with its associated peripheral devices; and Transport Control Protocol/Internet Protocol 


(TCP/IP), a widely adopted set of internetworking protocols which transcends proprietary 


network protocols, allowing heterogeneous computers to communicate and truly 
distribute processing in powerful ways. The first factor in particular forced computer 
scientists to focus less on "system engineering" and more on "software engineering." They 
discovered that computing machines and computing networks were rapidly entering the 
realm of commodities. General purpose computers and networks became so powerful and 
inexpensive that software engineers were forced to modularize their computing 
abstractions to take advantage of computing architectures, rather than computing systems. 

Three trends have accelerated the movement to implement the computing systems 
of the first revolution within the computing architecture of the second revolution: 
decreasing amounts of money, increasing redundancy in written program source code, and 
decreasing complexity in administering systems. General purpose computers and 
networks powerful enough to manage and manipulate the computing abstractions of our 
mission critical computing systems are widely available in the commercial sector, and 
inexpensive enough to motivate the move away from many special-purpose embedded 
systems. Moreover, the software programs and processes required to meet the needs of 
many of our mission critical functions, such as messaging, financial management, and 
logistical operations, are increasingly available as well in the commercial sector. 

The redundancy issue involves the tremendous amount of time and money invested 
in creating and maintaining the same computing algorithms, data sets, and objects over 
and over again throughout organizations and industries. Recognizing the expense of a 


typical line of code, which drives the need to craft reusable code modules with 


well-designed interfaces, has forced software developers inside and outside of the DOD to 
focus on identifying the functionality and required data sets of the target domain, in order 
to enable the search for, and acquisition of, existing computing abstractions at a significant 
savings over traditional in-house custom-built computing solutions. 

Finally, the trend toward decreasing complexity is one in which the complexity of 
the computer system, manifested in such computing domain concepts as network 
administration, runtime environment configuration, and peripheral device installation and 
management, without knowledge of which computing systems cannot be properly 
administered and maintained, is evolving toward increasing abstraction of these computing 
domain principles and mechanisms. This trend frees the user to focus on the missions and 
tasks for which he or she is trained, rather than on mastering the techniques and methods 
of operation created by software developers to facilitate the tasks and operations 
associated with the development of software systems. 

The proceeding discussion is meant to illustrate the following point: we no longer 
have either the resources or the incentive to develop special-purpose, embedded 
computing systems for all but the most unique and time-critical of our computational 
needs. And in order to identify the commodity computing machines, networks, and 
software processes which best fulfill our computational needs, it is critical that we identify 
that mission essential functionality, and those required data sets, which represent and 
describe our targeted operational domains. This paper examines the processes and data 


types which embody the required functionality of the Sector Anti Air Warfare Center 


(SAAWC), itself a subsystem containing much of the functionality exhibited in the 
MACCS. The accurate and thorough specification of the processes and data types within 
the SAAWC is the critical first step in developing an object-oriented, network-centric, 
standards-based, relatively inexpensive, BA system which meets the required functionality 
of the USMC, complies with the standards-based environment of the DIT COE, and takes 
advantage of the key technologies of the second revolution in military computing: virtual 
machines, commodity computers and TCP/IP-based networks, distributed object 
computing, and object Relational Database Management Systems (RDBMS). 

- Messaging 

Computers are particularly useful for two things: messaging and database 
operations. Messaging is as old as man himself and often serves as the principle reason 
behind success or failure on the corporate and military battlefields. Messaging drives 
decisions, which in turn drive actions. Messaging is the principal means for developing 
BA. Timely and accurate messaging separates winners and losers, victors and the 
vanquished. Messages need not themselves be sophisticated: a simple message identifying 
enemy actions at a particular point and place in time can turn a battle. Message 
transmission technology need not be sophisticated: a timely phone call, simple e-mail, or 
faxed image can convey immediate and pertinent information. What requires a concerted 
and orchestrated effort, however, and a sophisticated analysis and design as a preliminary 
Stage, is the development of a messaging system which defines each message as one of a 


finite set of Abstract Data Types (ADT): readable, representable, and redistributable to 


both humans and computers, and a means for transferring these ADT "objects" rapidly 
across distinct but interoperable networks. 

It is important that a MACCS to CAC2S migration plan recognizes the 
significance of these ADT "objects", which are both the means by which BA is developed 
and the means by which tactical, operational, and strategic decisions are implemented. An 
aircraft "track", an Air Tasking Order (ATO), and an image of an air defense site do in 
fact have more in common with one another than not. It is critical to the success of the 
migration plan that the precise computational representations of each of these ADTs be 
standardized in order to determine the most appropriate means for their transmission, 
reception and routing. 

Furthermore, strong consideration should be given to our representation of 
abstract events as objects which can exist in a sequence of varying states. For example, an 
ADT object which was instantiated as a collection of attributes representing a planned air 
sortie could go through a series of modifications in which the object's own methods 
modified its state, as a way of indicating the object's transformation from a planned 
mission, to an executing mission occupying battlespace and battletime, to a finished 
mission with associated attributes which indicate the consequences of the executed 
mission. By unifying the conceptual, documented, executing, and historical attributes of a 
particular event in time, and by encapsulating within the object the methods which can 
direct the transformation of the object in response to real-world activities, we produce 


ADTs with properties which facilitate their creation, dissemination, and use within a 


distributed messaging system. 

To illustrate with another example why deliberate analysis of the messaging 
process, as it relates to ADTs, is needed, a solution in the CAC2S must be developed to 
overcome the current limitations in wireless bandwidth which have been exposed in 
current implementations of the TADIL J processing system. That system has been 
developed to accomplish the desired refresh rate of the air defense picture through the 
periodic transmission of the entire battlespace by means of a "track file", providing static 
position and descriptive information which is associated with each individual track. A 
more efficient solution uses ADT methods to send messages updating ADT 
representations when changes to those representations are triggered. Furthermore, by 
treating the air defense picture as a composition of ADTs, current broadcast, multicast, 
and subscription messaging methodologies can be implemented to deliver just those ADTs 
of interest to a particular given user, reducing the amount of traffic over the TADIL J link. 

2 Database Technology 

Automated Information Systems provide the capability to store extraordinary 
amounts of data, to index in an extensive and thorough manner, and to retrieve data in 
powerful ways which will aid BA, problem analysis, and the decision-making process. 
Traditional hierarchical database methodologies required the database designer to build a 
database schema with a particular "view", or collection of attributes which composed an 
entity, in mind. The resulting database schemas purposefully planned for the duplication 


of database entries in order to account for the many different views different users might 
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require to the database. Relational database methodologies allow the database designer to 
build carefully organized relations between distinct, but related entities, allowing for the 
creation of multiple views into the database schema without the accompanying duplication 
of database entries. 

The MACCS to CAC2S migration plan must include a comprehensive analysis of 
the data needs of MACCS operators in order to determine the types of information 
required, the relationships between those information types, and the points and places of 
replication necessary to permit and enforce the provision of a common BA throughout the 
MACCS. Efficient design and implementation of relational database technology will 
support the storage, archiving, and retrieval of perishable, time-critical messaging as well 
as the provision of encyclopedic data elements or developed information which supports 
the decision-making process. Relational database technology is the key to efficiently 
processing and presenting to the user the correct and pertinent COP, amidst the multitude 
of messages, information, and intelligence which may be available. The migration plan 
should seek to identify every decision-making point within the MACCS and to develop a 
plan for incorporating relational database technology into that decision-making process. 

c. GOAL 

There is significant value added in the analysis of data processing requirements and 
data flow requirements in the MACCS, by modeling the network nodes and links in the 
SAAWC using the Naval Postgraduate School (NPS) Computer Aided Prototyping 


System (CAPS). CAPS is used to decompose each of the SAAWC functional 
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requirements into functional operating nodes, then further decomposing them into 
common services nodes, and finally, identifying data types and atomic data processing 
requirements within the resulting nodes and links. The result is an executable model which 
will facilitate the identification of particular information producing, messaging, and 
consuming needs and which will suggest a blueprint for the fielding of general purpose 
C4I Workstations and general purpose networks to meet those needs. 
D. SUMMARY OF CHAPTERS 

Chapter If examines the current landscape within the USMC, USN, and DOD with 
regard to development of C4I Workstations and general purpose networks. Chapter III 
documents an analysis of SAAWC data types and data processing requirements and 
provides an illustration of how those requirements might be satisfied by an infrastructure 
of common C4I services. Chapter IV describes the design of the SAAWC prototype using 
CAPS to decompose the system into a network of data streams and operators. Chapter V 
provides conclusions, recommendations, and identifies areas in which further research is 


merited. 
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Il. SURVEY OF C4I ARCHITECTURE 


A. CHAPTER OVERVIEW 

This chapter discusses the various initiatives and design decisions published by the 
three C4I program offices influencing the development of the CAC2S. These design 
decisions represent guidelines and criteria for C4I segment developers, as well as 
standards for the provision of testing and assigning ratings which describe the levels of 
compliance to the prescribed architecture that developed segments meet. The DIT COE 
provides a high-level Information Systems (IS) architectural plan for the building of C4I, 
Sensor, Weapons, and Combat Support systems. These systems will provide an 
operational environment which optimizes the flow of data vertically through the levels of 
operation, and horizontally across peer services and agencies. Of the three programs, only 
the DII COE is not an actual system. The Global Command and Control System (GCCS) 
is a C4I system designed to incorporate core operational, intelligence, and communication 
planning and execution functionality, and is intended to be the target architectural 
environment for each of the service-specific C4I system variants. The Joint Maritime 
Command Information System (JMCIS) is the USN/USMC variant of the GCCS system, 


incorporating functionality unique to the maritime character of USN/USMC warfare. 


B. DEFENSE INFORMATION INFRASTRUCTURE COMMON 
OPERATING ENVIRONMENT (DIT COE) 


[JOINT95] proposes a concept, C4I for the Warrior (C4IFTW), which calls for the 


development of a general purpose architecture in which users at the tactical, operational, 
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and strategic levels work within a common operating environment accessing shared data 
pertinent to the prosecution of their particular missions. The C4IFTW vision is articulated 
as follows: ''The warrior needs a fused, real-time, true picture of the battlespace and the 
ability to order, respond and coordinate vertically and horizontally to the degree necessary 
to prosecute the mission in that battlespace." 

The DI Master Plan is a blueprint for implementing the technical infrastructure, 
shared services, and functional applications facilitating interoperability and collaboration 
among the DOD Services, Agencies, Office of the Secretary of Defense (OSD), and Joint 
Staff in order to accomplish the C4IFTW concept. The DII itself can be described as a 
seamless, worldwide, secure, standards-based web of computing hardware, software, and 
communication links designed to meet the information processing needs of DOD users in 
peace and in time of conflict. The primary purpose of the DII Master Plan is to identify 
and document current and future elements of the DI which enable interoperability and 
collaboration, define the roles and responsibilities of those falling under the cognizance of 
the DI, and to identify and document the relationships among current DI initiatives. 

That portion of the DI Master Plan responsible for defining the set of integrated 
support services and software development environment for the DII shared technologies is 
the DIJ Common Operating Environment (COE). The DII COE contains the detailed 
technical specifications which support the DI architecture in accordance with the 
Technical Architecture Framework for Information Management (TAFIM) and DOD Joint 


Technical Architecture (JTA). The DIJ COE is an evolving computer systems 
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architecture, a set of standards designed to take advantage of commercial sector 
technology and methodology, and a vision to guide the development of C4I and non-C4] 
mission domain computer systems which realize the C4IFTW vision. 

The DI COE defines three layers: Kernel, Infrastructure Services (Data 
Exchange), and Common Support Applications. The Kernel includes the computer 
operating system and extensions, the common desktop, software install and de-install 
tools, security extensions, and printer services. The Infrastructure Services layer, a 
horizontal layer, identifies RDBMS servers/clients, Web  servers/clients, network 
management processes, message profiling, office automation, and PC services. Common 
Support Applications, also called vertical market services, include Mapping, Charting, 
Geodesy, and Imagery (MCG&I ), communications input and output, message encoding 
and decoding, correlation and fusion, and tactical data replication. Mission Applications, 
or segments in DIT COE terminology, are developed to run on top of these three layers in 
accordance with the DII COE Integration & Run Time Specification, which defines the 
manner in which an application is to interact with underlying layers and with other, peer, 
mission applications. Additionally, this document identifies eight levels of DII COE 
compliance which provide a benchmark for judging the qualification of a mission 
application in meeting DII COE standards. The D6 directorate, Joint Interoperability and 
Engineering Organization (JIEO), within the Defense Information Systems Agency 
(DISA), is the cognizant authority for developing and publishing the DIT COE and 


anticipates major releases of the standard being published every 18 months, with minor 
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releases being published every 6 months. A release schedule is available, on the World 
Wide Web, at http://spider.osfl.disa.mil/dii/coe/COEDevel/COEDevelopment.htm. 
CG: GLOBAL COMMAND AND CONTROL SYSTEM (GCCS) 

To use a computer programming metaphor, if the DIT COE is the specification for 
a "class", then the GCCS is the instantiation of that class, or the object itself. The GCCS 
is an actual system, developed to fulfill the C4IFTW vision as it pertains to the functions 
of Command, Control, Communications, and Intelligence. The GCCS was originally 
conceived as a replacement for the World Wide Military Command and Control System 
(WWMCCS), the mainframe-based system which has served the command and control 
needs of high-level US military commands for over two decades. It is now also targeted 
as the system which will satisfy the vision of the C4IFTW concept. 

In February, 1995, a GCCS Design Working Group was convened [BUTLER96] 
to specify, define, and publish an architectural style and a set of specific architectural 
components designed to satisfy both documented GCCS COE requirements and the 
GCCS baseline environment. A number of command and control scenarios were 
developed and analyzed in order to determine the behavior and interrelationships of the 
architectural components the group had identified. The group came to the conclusion, 
documented in [BUTLER96] and [MOXLEY 96-1], that a traditional two-tier architecture 
was unlikely to provide the robustness and flexibility required in a computing environment 
envisioned to satisfy both real-time needs and non-real-time needs, processing tactical and 


non-tactical data, and incorporating both high-speed LAN technology and lower-speed 
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WAN technology in a single global C4I network. They proposed as an alternative a 
three-tier architecture incorporating a "subscription broker" middle tier to serve as a 
mediator between consumer-oriented processes (traditional clients) and producer-oriented 
processes (traditional servers). This design decision is significant because it has 
repercussions not only for GCCS, but for every GCCS variant, such as the USN/USMC 
JMCIS, and every GCCS variant segment, such as a JMCIS application to monitor and 
control the prosecution of air defense operations. The CAC2S must be specified and 
designed with this in mind. 

A three-tier architecture supports several common software engineering principles. 
It supports modularity and encapsulation, or information hiding, by allowing for the 
development of clients and servers with no need for knowledge of the implementation 
details another module might use. This significantly enhances the independence with 
which clients and services can be developed. It minimizes the amount of required 
system-wide knowledge, which now consists of only data types and services, as described 
in [BUTLER96]. It also supports the coexistence of persistent and non-persistent data, 
which is critical to the concept of combining real-trme and non-real-time data 
requirements, by providing a brokered structure which prioritizes the delivery of 
information. 

In a GCCS three-tier-architecture, client applications are mission-specific data 
consumers which might support the decision-making processes of analysts and operators. 


The subscription broker might be implemented using the Distributed Object Management 
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(DOM) architecture and one of two, or both, DOM technologies: the Distributed 
Computing Environment (DCE) and the Common Object Request Broker Architecture 
(CORBA). [BUTLER96] defines two groups of services: infrastructure services, and the 
services provided on behalf of common support applications. Among the former are 
communications services such as the TCP/IP applications Simple Mail Transport Protocol 
(SMTP), File Transfer Protocol (FTP), and Telnet, security services, name services, time 
services, object interchange services, data management and file management services, and 
presentation services such as print and device services. Common support application 
services include alert services, correlation services, message services, and MCG&l 
services. 

Perhaps the most distinguishing factor of a server is the type of data, or data 
category, for which it is responsible. Rather than being categorized by the source, data is 
categorized by what it describes. In grouping data by what it describes, more efficient 
algorithms can be developed for parsing, sorting, and archiving that data, and more stable 
Application Programming Interfaces (APIs) can be written to request and process that 


data. 


D. JOINT MARITIME COMMAND INFORMATION SYSTEM (JMCIS) 
'98 


JMCIS is the maritime variant of GCCS, and JMCIS'98 is the latest version of the 
system. JMCIS'98 marks a radical departure from the legacy systems from which it 
descended. A principle tenet of the JMCIS'98 project is to significantly leverage COTS 


systems and the Windows/PC architecture. 
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As JMCIS is the target maritime C4I Workstation, it 1s incumbent upon the Marine 
Corps to be active agents in the process of identifying CAC2S requirements as they 
pertain to the JMCIS architecture and to ensure that CAC2S components are fully capable 
of seamlessly integrating within that architecture. JMCIS component programs, such as 
CAC2S, are responsible for documenting, validating, and presenting Operational 
Requirements Documents (ORDs) to the Copernicus Requirements Working Group 
(CRWG), the semi-annual forum for soliciting and prioritizing JMCIS requirements from 
the maritime services. A CRWG database with a Web-based interface provides the 
mechanism for JMCIS component program managers to track the progress of their 
requirements from identification to deployment. The database is accessible, on the World 
Wide Web, at http://copernicus.bahsd.com. 

A keystone document, [JMCIS97], elaborates on the planned migration of JMCIS 
from a network of heterogeneous UNIX systems to a Web and PC-based operating 
environment, leveraging the private sector investments in Information Technology (IT) 
and simplifying maintenance and training on IT systems. Specifically, [JMCIS97] 
identifies six key tenets of JMCIS'98: migration to the DIT COE, migration to PC 
Workstations and Servers, industry capitalization, combination of tactical and non-tactical 
networks, employment of "leading-edge" logistics, and streamlining of the acquisition 
process. JMCIS'98 will exercise an accelerated test/evaluate/certify/deploy cycle using the 
USS Coronado (AGF11) as a "Joint Battle Lab" to ensure suitability of the JMCIS'98 


architecture and its components. Five architectural phases have been defined to enable the 
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migration of JMCIS to the target environment while concurrently meeting the operational 
requirements of the Fleet. The phases are identified under the JMCIS Unified Migration 
Plan (JUMP). 

Finally, the Joint Maritime Communications System (JMCOMS) is the 
communications infrastructure upon which JMCIS'98 will be implemented. This 
infrastructure will be composed of a combination of high-speed LANs, lower-speed 
WANs, dedicated wireless SATCOM and LOS transmission, and on-demand (dial-up) 
service. 

Ee SUMMARY 

The paradigm for performing requirements analysis and system specification for a 
complex, mission-critical, operational domain has clearly shifted. While the need to 
accurately identify domain-specific data elements and data processing functionality 
remains as critical as ever, now this analysis and specification must take place within the 
context of the architectural guidelines developed by the DIT COE, GCCS, and JMCIS 
programs. A _ successful CAC2S operating environment will maximize the use of 
underlying infrastructure and common support application services, be designed to scale 
equally well across high-speed LAN and lower-speed WAN networks, and will create and 
deploy data type objects which facilitate their processing and transportation in a 


distributed TCP/IP network. 
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I. SECTOR ANTI AIR WARFARE CENTER (SAAWC) FUNCTIONALITY 


A. CHAPTER OVERVIEW 

One of the keys to successfully migrating the MACCS from the suite of legacy 
equipment and processes it currently possesses to a DIT COE compliant distributed 
computing environment is to identify the potential objects within the system. Those 
objects represent the data types manipulated by the system as well as the functional 
processes which provide the services to manipulate those data types. Objects are 
collections of data, or attributes, and the operations, or methods, which act on those 
collections of data. The design of a DIT COE compliant MACCS cannot begin without a 
thorough and accurate specification of every object expected to occur in the MACCS 
domain. Every data type, from a track object to an imagery object, must be specified as a 
discrete collection of attributes: defined fields, values, and constraints, and a discrete 
collection of methods. Those methods are defined operations which permit the retrieval, 
initialization, and modification of those attributes. Every functional service, from track 
services to security services, must also be specified as an object. A track server, for 
example, would be specified as an object with index, communication, and storage 
components implementing the functionality of an abstract machine. That abstract machine 
would be capable of collecting, organizing, and distributing information on tracks, 
themselves abstract representations of real-world planned or active events. The 
importance of deliberate and exhaustive specification of the data types and processes 


which exist and act in the MACCS domain, and specifically, the treatment of these entities 
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as objects which resemble and behave in predictable, real-world manner, is to take 
advantage of a future distributed computing architecture which will facilitate the 
movement and interaction of objects across a transparent, yet heterogeneous, network of 
dissimilar computing platforms. 

Standards such as Distributed Computing Environment (DCE) and Common 
Object Request Broker Architecture (CORBA), protocols such as Hyper Text Transfer 
Protocol! (HTTP) and Internet Inter-ORB Protocol (IIOP), and runtime environment 
paradigms such as the Java Virtual Machine (JVM) are currently being implemented inside 
and outside of the DOD and represent the distributed computing architecture of 
tomorrow. The following discussion of SAAWC data types and functional processes 
represents a beginning for the specification of the objects required to implement the 
desired SAAWC functionality. 

B. SAAWC PROCESSES 

[SAAWC95] identifies seven "displays", or user interfaces, required to provided 
the Sector Antiair Warfare Coordinator (SAWC) and the SAAWC staff with the 
information they need to conduct Air Defense Battle Management (ADBM). The SAWC 
is the chief architect of the ADBM plan and coordinates its implementation. The SAAWC 
is the collection of systems, personnel, and procedures used to execute the ADBM. These 
seven user interfaces can be used as metaphors for higher-level, or composite, "processes" 
within the SAAWC that can be further decomposed into client processes, broker 


processes, and server processes. Furthermore, this decomposition will identify processes, 
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such as a track serving process, which several upper level processes commonly require. 
The identification of user interfaces as "processes" has the additional advantage of 
providing for efficient scaling with minimal redesign effort. In a small-scale 
implementation of the SAAWC, for example, a single workstation or processor may 
interleave all of the SAAWC processes, permitting the operation of all the SAAWC user 
interfaces on a single machine. Alternatively, in a large-scale implementation of the 
SAAWC, a single workstation or processor might be dedicated to each process, providing 
not only one machine for each of the SAAWC user interfaces but also one machine each 
dedicated to such processes as a data management server, communications server, track 
server, and so on. Either small-scale or large-scale implementations could include spare 
workstations or processors loaded with client and server processes to provide the system 
with a robust, fault-tolerant design. A complete representation of all SAAWC functional 
processes 1s presented as figure 1. 

SAAWC functionality is described in [SAAWC95] as requiring the following user 
interfaces: Air Defense Mission Display (ADMD), Offensive Air Support (OAS) Mission 
Display (OMD), Air Defense Situation Display (ADSD), Communication Status Display 
(CSD), Equipment Status Display (ESD), Intelligence Display (ID), Air Situation Display 
(ASD). Together these user interfaces enable the SAWC and his staff to maintain a 
timely, accurate BA, plan future air defense missions and postures, and identify air defense 


requirements which aren't being met. In addition to these missions, the SAAWC must also 
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Figure 1. SAAWC Functional Processes 
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be capable of becoming the alternate Tactical Air Command Center (TACC), should that 
facility become a casualty. 

The first of the SAAWC user interfaces, the ADMD, will contain information from 
the Air Tasking Order (ATO) relevant to the prosecution of air defense. Within those 
subsections of the ATO deemed pertinent, the display must include information regarding 
mission numbers, call signs, mission type, ordnance/fuel, time on and off station, IFF 
codes, mission status, terminal control agency and frequency, package designator, routing 
information, and tanker availability. 

The OMD will contain information from that subsection of the ATO pertaining to 
Close Air Support (CAS), Deep Air Support (DAS), Air Reconnaissance, Electronic 
Warfare (EW), and Offensive Antiair Warfare (OAAW) missions. The required 
information within those subsections of the ATO is identical to that of the ADMD, with 
the exception that more detail regarding air-to-air and air-to-ground ordnance must be 
provided. 

The ADSD will present a real-time depiction of the current air battlefield picture. 
It must accomplish this through the presentation of "tracks", which represent air, ground, 
and seaborne entities which may have friendly, foe, unidentified, fixed, and mobile 
characteristics. Additionally, this display will Sinead air defense warning conditions and 
weapons control status, Combat Air Patrol (CAP)/Fighter Engagement Zone (FEZ) 


manning, Missile Engagement Zone (MEZ) status as part of the Ground based Air 
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Defense (GBAD) status, States of Alert (SQA), missile inventories for ground-to-air 
missiles, and tanker assets, including tanker fuel availability. 

The Air Situation Display will present a superset of the information presented by 
the Air Defense Situation Display with the purpose of enabling the Sector Antiair Warfare 
Coordinator and his staff to make timely decisions regarding future employment and 
deployment of air defense assets. The Communication Status Display will present to the 
SAWC and his staff a graphic depiction of communications personnel, equipment, and 
circuit status. Pertinent information will include circuit names, designators, equipment 
types, cryptographic means, frequencies, and status. The Equipment Status Display will 
present a battlefield picture of the operational status of equipment associated with 
designated higher, adjacent, and supporting units. Pertinent applications might include 
surveying the status of organic radar units, airfield control units, and weather forecasting 
units. The Intelligence Display will present a battlefield picture consisting primarily of 
static information. Friendly Order of Battlke (FOB) and Enemy Order of Battle (EOB), 
designated facilities, friendly scheme of maneuver, and predicted enemy schemes of 
maneuver will be available to the Intelligence Analyst interacting with the ID. 

CG SAAWC DATA TYPES 

There are a number of fundamental data types which enable the SAWC and his 
staff to plan, decide, and execute their assigned tasks. Foremost among these is the 
concept of a "track" data type. The conventional representation of a track is as a set of 


ascil text characters describing a real-world object, either fixed or mobile, ground-based, 
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air-based, or sea-based, and friendly, foe, or unidentified. It is the principal data type used 
to convey meaningful information to the MACCS operators and analysts regarding the 
prosecution of an air battle. At the most basic level, and as it exists in a Tactical Data 
Link (TADIL) system like TADIL J, a track is a bit-oriented subset of a data stream which 
is machine readable, and is manipulated by a special purpose TADIL processor to produce 
something which is man-readable and conveys meaningful information to an operator. 

A TADIL J message is composed of, normally, 1, 2, or 3 Link-16 words, each 
word containing 70 bits of data. TADIL J, or Link 16, is the Joint Services and NATO 
forces standard for the exchange of real-time tactical data among units of the force. A 
J-series message has the potential for carrying information representing a real-world 
object's identification, status, activity, location, speed, bearing, and electronic operating 
parameters, along with information pertaining to the track itself, such as reporting source, 
track number, and track quality. The TADIL J implementation of the track data type is a 
significant enhancement to the process of forming a meaningful air battlefield picture. 

Another fundamental data type is the character-oriented, man and machine 
readable, USMTF record message. The USMTF message set is a collection of mission 
and situation specific formatted message templates used to document and disseminate 
meaningful information on every subject from plans and operational orders to chemical 
attack reports and intelligence summaries. Of particular interest to the SAWC and his 
staff are the ATO and Situation Reports (SITREP). The ATO is the principal means for 


disseminating information pertaining to the conduct of aircraft missions (sorties) during a 
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given period of time. It is composed of subsets of information which describe the times, 
activities, units, platforms, payload, and communications details for specific air missions. 

The ATO itself is a poor choice for a data type. Most units, and the SAAWC is no 
exception, are concerned with only that portion of the ATO which pertains to the 
prosecution of their assigned tasks. The ATO may still have utility as a tool for an ACE 
commander and his staff to review the projected employment of air assets during a given 
period of time. However, given the advances in messaging and database technology, the 
ATO is more appropriately considered as a user-defined collection of air missions which 
have been developed, documented, and disseminated for the purpose of setting up the 
air-related battlefield picture for a user-defined period of time. A single “air sortie" data 
type is a much more precise, efficient, and meaningful way in which to represent a 
real-world concept which, when executed, becomes the real-world object that is an active 
air sortie. In addition to providing a clear, simple transition to a track data type, an air 
sortie data type is much simpler to implement in a messaging and database driven 
environment. 

The USMTF formatted SITREP message is a clear, succinct vehicle for conveying 
meaningful information pertaining to a unit's current status. As such, itis a good data type 
for representing the unit, equipment, and weapons system conditions and status that are 
required by the SAWC and his staff. The well-defined format and widespread adoption of 


the SITREP make it a logical choice for a data type capable of representing real-world 
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concepts: current operating status, current weapons alert conditions, current unit 
preparations. A SITREP data type is well-suited for both periodic and ad hoc messaging, 
and for database archival and retrieval. 

A number of additional USMTF message formats are defined for the purpose of 
conveying special purpose information of central and peripheral interest to the SAWC and 
his staff. Requests for supplies, changes to unit employment, and task-related liaison with 
designated units are a few of the many needs fulfilled by USMTF messages. These 
real-world concepts should be examined in another forum as potential data types whose 
graphical representation could be location or functional area-based and whose 
representation as a data type serves the purpose of logging, alerting, and managing units, 
plans, and events as they occur during the prosecution of a battle. 

D. PRODUCERS 

The producers in a three-tier, DIT COE compliant implementation of the SAAWC 
are those entities capable of generating computational representations of the real-world 
objects, concepts, and states which portray the battlefield picture at given intervals of 
time. They are those processes which, either through user input or electro-mechanical 
detection and identification, construct ADTs which can be transmitted by computer 
networks and manipulated by computer clients to form a meaningful depiction of a state of 
battle. Referring to [BUTLER96], a collection of producers would potentially include 
those common service providers representing the bottom tier of the client/broker/server 


architecture. 
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These common service providers include a track server, which would produce 
track objects representing real-world battlefield entities. Emphasis for the operation of a 
track server would be on near-real-time reporting of entity characteristics at the expense 
of possible duplicate, non-correlated, and incompletely identified tracks. The majority of 
tracks would be perishable in nature, and much of the value provided would be in their 
timely presentation to the weapons control, sensor control, or display client consumer. A 
secondary consideration for the consumption of tracks would be for their use in 
reconstructing events at a later date for the purposes of investigation or training. A track 
server might be implemented as a dynamic, real-time Relational Database Management 
System (RDBMS), in which the timing constraints facilitated by priority-based scheduling 
must be considered in addition to the traditional goal of guaranteeing database 
consistency. 

A Data Management Server, described in [BUTLER96], would consist of three 
server types: an object-base server, a data management server, and a file server. An 
object server would produce "intelligent" objects, binary blobs of code which could 
facilitate communication between client objects and server objects. This data server 
would provide all the intelligence, i.e., knowledge of the attributes of objects and of their 
relations to other objects, that a client would need to establish a run-time liaison with a 
server object. The data management server would produce the interfaces required for 
communication between clients and various proprietary implementations of Relational 


Database Management Systems (RDBMS). The file server would produce a single name 
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space, hierarchical view of the file system in which all files are presented to the client as if 
they were located in a single tree structure, on a single system. Resolution of logical file 
names to their actual names and locations is accomplished by the Name Server, described 
below. The File Server, in conjunction with the Name Server, hides the actual physical 
location of files from the client, permitting the client to make requests for files in a manner 
most appropriate to its implementation. Additionally, the File Server enforces rules for the 
concurrent reading/reading and reading/writing of files by distributed clients as well as the 
required notification/flushing of invalid copies of files held by clients. 

The Data Management Server is of particular interest to the SAAWC clients, as it 
would produce track objects representing evaluated and validated real-world objects 
which add intelligence to the battlefield picture. Known airfields, Surface to Air Missile 
(SAM) sites, and Early Warning (EW) radar sites are examples of static entities which 
might be served in a non-real-time manner to a weapons control, sensor control, or display 
client consumer. The implementation of a Data Management Server which provided static 
data in a track data type format would facilitate the transmission and reception of this data 
in a TADIL broadcast, as well as provide for the consumption of the data by clients 
generating request over traditional Local Area and Wide Area Networks. Finally, the 
implementation of a Correlation Server would be simplified by the specification of both 
perishable and non-perishable formats for a track data type by eliminating the requirement 
for translation between unlike data representations such as tracks and database records. 


A Correlation Server would be a source for data fusion within the system, 
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providing "value-added" intelligence to the tracks it was subscribing to as a track 
consumer, producing a track with a higher level of assurance to subscribing consumers. 
Emphasizing data consistency and employing a set of business rules which enable the 
correlation of perishable tracks with one another, and perishable tracks with database 
records, the Correlation Server might generate tracks carrying a validity qualification 
which permitted their overwriting of less valid tracks stored locally at the subscribing 
consumer. The quality of a Correlation Server's produced tracks would be valuable both 
to a non-real-time track consumer and to a real-time track consumer, tasked both with 
' providing what is known in the Intelligence community as data of an Indications and 
Warning nature as well as with providing data of an Intelligence (evaluated information) 
nature. 

A Security Server would be responsible for providing the security services required 
to enable distributed processing and communication services which preserved the 
authenticity, secrecy, and integrity of the transmitted data. Specifically, the Security 
Server might produce certificates upon request by a client which enables the process of 
authenticating communications between the client and a specified server. The Security 
Server might also produce cryptographic keys which enable the client and server to 
communicate in a manner which disguises the nature of ther communications. Finally, a 
Security Server might produce digital signatures for communicating processes which 
provides a mechanism for detecting the alteration of data enroute from a sending process 


to a receiving process. 
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The Security Server plays a critical role in a distributed computing environment in 
which mobile code transits not only LANs but also, increasingly, WANs. Centralizing the 
role of security in a server enables turnkey solutions, such as the Kerberos Server, to be 
implemented, while at the same time allowing intelligence to be built into clients permitting 
dynamic determination of the needs and levels of secure communication. Appendix C 
provides elaborating information on the Kerberos Server. 

A Time Server simplifies the process of synchronization between networked 
processes. Each server in the three-tier architecture might subscribe to the Time Server, 
consuming the produced timestamps which facilitate synchronization among cooperating 
processes. Timestamps are a critical means for permitting correctness in computation and 
for auditing computing histories. 

An Alert Server would produce simple messages, alerts, in response to an alert 
filter profile created by a subscribing client process. These messages could be in audio, 
visual, text-based, or graphics-based format, and they might reference the track, record, or 
message data type identified in the alert filter profile. An intelligent Alert Server 
implementation would subscribe to and monitor both real-time and non-real-time streams 
of data types transiting the network, and generate alerts which contained references to the 
identification and location within the system of the subject data type. Centralizing alert 
services permits the reduction of redundancy within the system. If, for example, several 
client consumers have indicated interest in the release of a pending operation order 


message, only one process need monitor the network for that message, and only one copy 
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of that message need be saved and referenced by the alerted clients. An Alert Server 
should be capable of producing alerts based upon profiled real-world objects, real-world 
concepts, and real-world events, as well as computer-related conceptions such as alerts to 
other servers, for example, to initiate back-ups to their secondary or off-site storage. 

A Map Server would produce the appropriate vector or raster depiction of the 
requested display background. This server could function as a single-point repository for 
navigational charts, tactical maps, and digital images, as well as vector-based geographical 
displays. Additionally, non-traditional maps, such as the inside of a warehouse, or a 
computer-driven electronic "message board", could be produced, rendered as vector 
diagrams, and used by subscribing clients to provide spatial and chronological context for 
supply "tracks" or record message "tracks" which are graphically displayed on the client 
machine. The primary responsibility of the Map Server is to produce background displays 
which provide the most appropriate context in which the user can draw conclusions from 
the overlaid "track" information. Whereas initial implementations of a Map Server might 
force the client to subscribe to specific display types and scales, an intelligent 
implementation might make display type and scale decisions based upon the "clutter" of 
tracks, display resolution, display size of the consuming client, and user selection. 

A Name Server would provide the critical function of mapping logical names to 
physical Jocations throughout the network. The NomerSenver would produce references 
to the real-world objects, concepts, and events in the naming context which was most 


appropriate to the subscribing consumer, resolving the requests to determine the correct 
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identification and location of the named entity. The resolved names produced must permit 
quick, efficient, and accurate communication across the network between the subscribing 
client and the server storing the resolved entity. A single source, name-resolving process 
simplifies the operations of adding and removing clients, brokers, servers, devices, and 
network protocols to and from the network. 

A Message Server would be a client subscriber to the Communications Server, 
parsing, archiving, and forwarding to subscribing clients references to requested messages. 
The intelligence built into a Message Server would consist of the functionality to 
recognize message formats and to properly distribute messages to the primary or 
Secondary storage of its subscribers. For example, tracks from a non-TADIL source 
would be forwarded to the Track and Correlation Server for processing and archival, 
while SITREPS would be forwarded to a local message library and to addressed 
subscribers. A Message Server is a producer in the sense that it takes character-based 
man-readable and machine-readable data from the Communications Server and produces a 
formatted message recognizable to subscribing clients. A Message Server might also be a 
repository for message format templates which facilitate the correct drafting of messages 
by clients, as well as a repository for message addressee templates which simplifys the 
process of addressing messages. 

Finally, a Communications Server would manage the interfaces required by clients 
to access and employ application level processes specific to the underlying network 


protocols. For example, the Communications Server would provide TCP/IP-based 
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SMTP, SNMP, FTP, Telnet, and HTTP services to subscribing clients, enabling them to 
be designed in such a manner as to focus on data type and service type needs rather than 
on communication type specifications. A Communications Server would work hand in 
hand with a Network Server, translating messages into data streams packaged for 
communication over particular datalink, network, and transport layer configurations, in 
addition to unpacking received data streams for subscribing clients. 

E. CONSUMERS 

In the truest sense of the term client, most producers are themselves also clients of 
certain data types and processes. For example, every producer would subscribe to the 
broker for timestamps provided by the Time Server. Certainly, our broker in the three-tier 
architecture is also a client of the data provided by the various servers. However, for the 
purposes of this paper, the clients of interest are those identified in a review of required 
functionality for the SAAWC: Ai Defense Mission Display, Air Defense Situation 
Display, Offensive Air Support Mission Display, Air Situation Display, Intelligence 
Display, Communications Status Display, and Equipment Status Display. 

These clients are themselves composite entities containing atomic clients: they are 
the principal interface between the human operator and the processes which receive, store, 
manipulate, and present data in a meaningful manner to him. It is in this context that 
clients are described. They are presented as the composite operator which organizes and 
coordinates the processes responsible for consuming requested data elements as well as 


commands from the human operator. 
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The ADMD client and the OMD client both exist for the purpose of presenting 
graphical representations of those portions of the ATO pertinent to the respective 
Displays. This is the principal means by which the human operator is able to develop a 
comprehensive FOB for a given period of time, for the purpose of prosecuting air defense 
and offensive air support tasks. The two display clients consume the digitized charts, 
maps and images, received from the Map Server, and present them to the operator in a 
manner which conveys the spatial and chronologic ordering of air sorties described in the 
ATO. The two display clients also consume queried air sortie data types, presenting them 
as tracks representing the concept of planned but not yet executed missions. 

By focusing on the background display needs of the human operator, and using the 
inherent geographic, functional, and chronologic attributes of the planned air sorties, 
powerful relations can be drawn and displayed to the operator which relate the planned air 
battlespace in a manner which provides intelligence to the battlefield. For example, if an 
operator desires to see a given area of the air battlefield, then his request should be 
interpreted not only as an invocation to display the geographic area, but also as a query 
into the sortie database to display those air sortie tracks which are related to the requested 
area. In another example, if an operator desires to see chronologic coverage of a needed 
asset, say air refueling, then a request to display a timeline should also invoke a query to 
display those air sortie tracks functionally related to the request, and in a manner which 
conveys their relation to the displayed timeline. By considering, designing, and creating 


these different data elements, charts, timelines, and planned _ sorties, as 
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computer-generated, object-oriented manifestations of real-world concepts, we can 
develop computer-derived presentations of real-world events which encapsulate the 
meaning of activities such as personnel and equipment moving through the air battlefield. 

Furthermore, by describing data elements, such as air sorties, as tracks 
representing unexecuted missions, it provides for a simple, yet powerful means by which 
real-world concepts can be transformed into the real-world events which are of interest to 
the ASD, ADSD, and ID clients. These clients are the principal means by which the 
SAWC and the SAAWC operators monitor the real-time events of the air battlefield. 
These clients also should incorporate the mechanisms for consuming and presenting to the 
operator background displays which convey the geographical and chronologic boundaries 
of the air battlespace, as well as the activity within those boundaries, on behalf of the 
respective air and air defense controllers. The consumed tracks, in this case, are those 
tracks representing actual missions, sea-based and ground-based as well as air-based, 
which have a direct bearing on the controlled battlespace. All tracks would consist of 
geographic, functional, and chronologic attributes which mark them for retrieval from a 
locally stored, dynamically updated database, to be displayed upon the triggering 
background display. 

The radical departure from the traditional means of depicting the battlespace as a 
two-dimensional field of sensor-der:ved contacts, as is the case with current TADIL 
processor and display subsystems, would be a shift in recognition that the source of data is 


much less important to the operators and analysts than is the type of that data. In a battle 
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environment where tactical events begin as concepts, become executing events, influence 
other executing events, then evolve into historical occurrences, the common thread that is 
the grouping of personnel, equipment, and tactics should be encapsulated into a common, 
consistent data type. That data type would be composed of attributes which illustrate its 
state, facilitate its manipulation by computing processes, and permit its representation to a 
human operator in ways which allow him to draw intelligent and meaningful conclusions 
about the prosecution of battle. 

The CSD and the ESD clients principally consume information regarding the 
operation of the components responsible for the SAAWC communication, computing, and 
presentation infrastructure. A traditional interpretation of this functionality consists 
primarily of equipment and network status messages which indicate the current operating 
condition of the system devices and communication links. A broader interpretation 
includes status messages indicating traffic flow, logging of system events, and information 
pertaining to the configuration of the equipment such as the procedures traditionally found 
in the Communications Annex, Annex K, of an operational plan. The CSD and ESD 
clients might consume geographical displays from a Map Server for presentation to the 
user as a background, representing an abstraction of the real-world locations and activities 
of his communications and computing devices. Status messages might be objects, which 
are generated and modified by Communications and Device Servers, with methods 
permitting the display of the objects as tracks, or their forwarding to other clients for 


action. What is of significant interest to these clients is that these configuration and status 
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messages be modeled as objects which represent the abstract notion of the state of 
computing machines and computing networks, and are defined in a manner both to make 
their manipulation and presentation by clients responsible for these activities simpler, and 
to facilitate this presentation so that it contributes to the notion of a COP and provides 
intelligence to an otherwise dissimilar and unrelated collection of events. 

F, SUMMARY 

The preceding discussion of data types, processes, producers and consumers, 
which are all part of the SAAWC operational domain, is intended to illuminate the process 
of developing computing domain implementations of operating domain entities. This is 
the critical first step in the process of designing an Automated Information System (AIS) 
solution to an identified operational need: in this case the need to build a general purpose, 
“Battlefield Awareness Machine", capable of bringing coherence to the air battlespace for 
which SAAWC operators are responsible. 

An important observation, regarding the processes and services described above, 
is that many are generic services typical of those found in a distributed computing 
environment. They are also common to the command, control, communications, 
intelligence, administration, logistics, and other assorted activities taking place throughout 
a given organization at the tactical, operational, and strategic levels. Furthermore, many, 
if not all, of these services are currently specified and implemented both in Commercial Off 
The Shelf (COTS) and Government Off The Shelf (GOTS) solutions which are part of 


current, or planned, versions of the GCCS and Global Combat Support System (GCSS). 
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IV. PROTOTYPE DESIGN 


Be CHAPTER OVERVIEW 

This chapter describes the methodology used to develop the SAAWC prototype 
with the CAPS tool, as well as the steps taken to build that prototype. Also described are 
the various tools used in addition to CAPS to model process interaction and message flow 
in order to produce a prototype which most accurately captures the behavior exhibited in 
the SAAWC. The chapter serves to document the analytical process responsible for the 
composite and atomic functionality designed into the SAAWC prototype. 

B. COMPUTER AIDED PROTOTYPING SYSTEM (CAPS) 

The Computer Aided Prototyping System is a software engineering solution to the 
need to rapidly develop executable prototypes from user specifications to contribute to the 
accurate, correct, and satisfactory development of Automated Information Systems. 
CAPS was developed at the Naval Postgraduate School as a tool for modeling real-time 
embedded software systems which exhibit the control and timing constraints expected in 
the modeled system itself. CAPS is an operating environment which consists of a set of 
tools which permit the prototype designer to graphically depict functional operators and 
data streams at composite and atomic levels. CAPS uses a fifth-generation prototyping 
language, PSDL, which provides the designer with the mechanisms needed to implement 
the timing and control constraints, messaging, and data typing in the prototype. Through 
an integrated scheduler and translator, CAPS creates the Ada language specifications for 


each atomic operator, data stream, and user-defined data type. In addition, CAPS 
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provides the implementation for a main procedure which dictates the timed behavior of the 
prototype and how exceptions developed during prototype runtime are handled. CAPS 
includes the functionality to invoke an Ada compiler for the production of the prototype 
executable code. 
C: PRELIMINARY DESIGNS 

In preparation for using the CAPS graphical editor to determine composite and 
atomic operators and associated data streams, preliminary designs were constructed using 
the X-Windows drawing tool known as xfig. This approach proved beneficial for two 
reasons: operator and data stream placement could more easily be initiated and changed, 
in attempts to reduce screen clutter and improve viewing clarity, because the screen 
redrawing was more efficient; and additions and deletions to the existing operators and 
data streams were not associated with the creation and modification of PSDL code, which 
lessened the likelihood of garbage declarations occurring in the PSDL code during the 
CAPS graphical editing phase. Drawings with the xfig tool were created to represent the 
high-level SAAWC as well as single-level decompositions of all the SAAWC composite 
operators. A sample drawing, of the decomposed Broker operator, is presented in 
figure 2. 

A second tool, Microsoft Excel spreadsheet, was used following the stabilization 
of the xfig drawings to represent event sequences corresponding to desired prototype 
behavior for typical scenarios. A spreadsheet was created with the horizontal axis 


representing SAAWC composite operators and the vertical axis marked by consecutive 
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Figure 2. Broker Operator Drawn with xfig 
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labels for points in time during prototype execution, appearing in chronological order. 
Spreadsheet cells were populated with a text value representing two concepts: the first is 
the data stream label associated with the originating SAAWC composite or atomic 
operator, and the second is a label which uniquely identifies the event which triggered a 
series of related messages. For example, in figure 3, row 3, column 3, the cell value 
“ad_sub_tracks=tracks_I_ want" represents a message sent from an atomic operator within 
the composite operator Air Defense System Display indicating a request to subscribe and 
receive notification from the system of the presence of a track, or set of tracks, with the 
particular request being associated with the tag “tracks_I_want." The spreadsheet was 
edited to depict at least one series of messages originating, terminating, or passing through 
every SAAWC composite operator. The complete spreadsheet is included as Appendix B. 

This presentation of associated data flow triggered by system events facilitated the 
determination of accuracy, correctness, and thoroughness of the initial SAAWC diagrams. 
In one example where the spreadsheet highlighted an initial system design flaw, during the 
process of tracing message flow which resulted from a request to display track 
information, it was determined that such a request logically should also tngger 
subscriptions and requests to the Correlation Server and to the Data Management Server 


as well as to the more obvious Track Server. 
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Figure 3. Message Flow Table 
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D. CAPS GRAPHICAL EDITING 

iL High-level Prototype Decomposition 

The purpose of the CAPS SAAWC prototype, presented as figure 4, is to model 
the data flow and functional operator interaction which exists within the modeled system, 
a SAAWC application segment running in the JMCIS environment. In the design of the 
prototype a decision was made to narrow the scope of simulated SAAWC behavior by 
including only a decomposition of that functionality specified for the Air Defense System 
Display (ADSD) operator. This decision was made after analysis of the modeled system 
indicated overlapping functionality between the seven SAAWC functional operators. The 
selection of the remaining operators for the high-level SAAWC prototype followed from 
the identification in previous work of the user interface and of the common infrastructure 
support and common support application functionality. Three operators were added to 
simulate external feeds of data or mechanisms for user interaction: a network operator, 
TADIL_J operator, and a get_user_command operator. An implementation of the 
network operator would simulate a LAN itself, presenting network-specific packages, in 
this implementation consisting of a user-defined data type called "bits", to the 
Communication Server composite operator for further processing. The network operator 
would similarly receive from the Communication Server operator messages which had 
been packaged as "bits", and were prepared for transmission onto the simulated network. 
An implementation of the TADIL_J operator would simulate a feed from a TADIL J 


processor, itself capable of presenting "tracks" representing mobile operational entities, 
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packaged in a track file which is transmitted periodically. A final additional operator, 
get_user_cmd, would be implemented in a Graphical User Interface (GUI) programming 
tool, such as the TAE’ and would be the means by which the executing prototype 
interacted with the user utilizing the standard input and standard output streams for 
communication. 

The logic behind the selection of particular data streams for implementation at the 
high-level SAAWC, to carry messages between the specified composite and atomic 
operators, resulted from the previous analysis of the functionality of the operators 
themselves. Examination of the ADSD functionality, for example, identified the need to 
accept from a uSer requests to process and archive "filters", or requests, representing 
tracks, messages, alerts, database records, and map displays pertinent to the prosecution 
of specific user tasks. Data streams for each of these messages, as well as data streams to 
carry composed messages, print requests, and requests for secure communications 
Sessions, were identified and drawn to convey the information required for the user to 
elicit the desired behavior from the prototype. At this level of the ADSD operator, 
moreover, it 1s assumed that some sort of internal processing would take place. This 
processing might consist of validation of these message requests or of archival and 
modification of locally maintained filters prior to transmission of the messages, intact, to 
the Broker operator. This internal processing is elaborated upon in the section describing 


the decomposition of the ADSD composite operator. 


'TAE is a trademark of the National Aeronautic and Space Administration. 
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The Broker operator is the critical archiving, controlling, and validating 
component in the three-tier architecture. At the highest-level, the complexity of its 
decision-making is hidden. The operator was drawn to convey the transmission of 
messages, triggered upon receipt of messages from various originating operators, to the 
appropriate destination operators. In fact, all outgoing data streams were drawn at this 
level as responses to the associated incoming data streams. For example, an incoming 
request to subscribe to the Map Server generated a request to the Map Server, which in 
turn generated a message containing either the map location or the map itself, triggering a 
Broker message to the requester which would contain the map itself. One additional data 
stream was drawn to carry Broker configuration information from the user to the Broker. 
Implementation of this functionality would permit a user to directly influence the 
decision-making logic of the Broker, determining such things as priority of delivery of 
tracks, validation of service requests of particular clients, and discrimination of duplicate 
or time-late information from a Server. 

The Alert Server composite operator was drawn with two inputs: messages 
containing track information, and user-generated requests to set a filter for specific track 
information. A single data stream output, an alert, would be generated by a successful 
reconciliation between an internal track message database and a particular filter request. 
This reconciliation process, amplified by the Alert Server decomposition, would be 
triggered by the receipt of either a new track message or a new filter request message. 


Similarly, the Track Server composite operator was drawn to indicate message 
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inputs from two sources: the TADIL_J operator and the Broker operator. Messages 
coming from the Broker represent user-generated requests for specific "tracks", and the 
messages coming from the TADIL_J operator represent the actual tracks themselves. The 
Track Server would encapsulate the behavior necessary to reconcile requests for tracks 
against an internally managed track repository, responding to successful matches with a 
corresponding message to the user. 

The Communications Server composite operator was drawn to be the interface 
between the SAAWC itself and the external network. To this extent, the Communications 
Server operator is illustrated receiving messages from, and delivering messages to, the 
network operator. Additionally, data streams representing unpacked FTP, HTTP, SMTP, 
SNMP, and UDP messages were drawn from the Communications Server operator to the 
Broker operator, indicating some internal processing of the network generated messages 
prior to their routing to the appropriate destination. This processing might include 
extracting the TCP/IP application packets, venfying them for correctness, assembling 
complete messages, or perhaps validating timeliness of delivery. Finally, two data streams 
are drawn from the Broker operator to the Communications Server operator: the first, 
session_data, represents a SAAWC user-generated message destined for an addressee 
outside the SAAWC network, and the second, session_control, represents a SAAWC 
user-generated control message indicating a desire to set up a particular TCP/IP 
application session between the originator and a specified destination. For example, a user 


generating an HTTP request for the first time might in fact generate two messages, the 
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first telling the Communications Server to establish a "thread" of communication between 
the user and the local HTTP server, perhaps acting in the role of a "proxy" WWW server, 
while the second message would contain the contents of the page, or resource, request 
itself. 

The Device Server and Map Server are composite operators drawn with highly 
refined, single-purpose functionality. A data stream from the Broker operator to the 
Device Server represents an administrator-generated message to add, modify, or perhaps 
delete a physical device resource to, or from, the network. The outgoing device_status 
message is both an indication to the administrator of the success of the device installation, 
as well as a trigger to the Name Server composite operator to modify its Name database 
so that user-generated requests to utilize a particular resource are properly mapped to the 
actual location of that physical device. 

The Map Server composite operator is drawn in a similar manner, ulustrating the 
generation of a map message, containing the map itself or perhaps a reference to a map file 
that is physically located elsewhere. This is triggered in response to an incoming message, 
request_map, representing a user-generated request to receive a particular display 
background for local manipulation. 

The Correlation Server composite operator encapsulates functionality for 
providing "intelligence", or added value, to the tracks processed in the SAAWC. For this 
reason, the Correlation Server operator was drawn to illustrate "black box" processing of 


incoming tracks and filter track requests, just as the Alert Server and Track Server 
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operators were. But the Correlation Server operator was also drawn to indicate an 
outgoing message subscription to the Data Management Server. A corresponding 
incoming data stream, respond_db_change, represents the Data Management Server's 
message response containing the requested database record information. It is presumed, 
at this level, that some unspecified internal processing exists to correlate track information 
with database record information and that successful matches will be delivered to the user, 
via the Broker operator, on the respond_valid_tracks data stream. 

The Data Management Server is a composite operator providing functionality to 
query, modify, add, and delete database records in response to user requests. In order to 
simplify the interface presented to potential clients of the Data Management Server, the 
operator was drawn with a single incoming data stream, encapsulating the request 
attributes, such as database record type, index, and request type. It is presumed that some 
internal processing of the messages, to extract and route the requests to the designated 
atomic operators, is provided. A single corresponding outgoing data stream represents 
the success of the user request and, if appropriate, the results of the request. 

The Message Server composite operator 1s envisioned to be an archival service for 
the management of incoming and SAAWC user-generated USMTF messages. Not unlike 
the Alert Server, Track Server, and Correlation Server, the Message Server operator is 
drawn to convey some internal processing of the incoming messages it has subscribed to 
receive, as well as the incoming message filter requests generated by the ADSD client. A 


corresponding outgoing data stream, respond_msgs, represents matches made between the 
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received and requested messages. Additional functionality has been incorporated into the 
Message Server, however, to provide for message template service to the ADSD client. It 
is presumed that an internally managed template database would be available to users 
requesting message templates, via the respond_template data stream, by serving up a 
formatted file, or a reference to a formatted file, with which the user could initiate the 
message-generation process. 

The Name Server composite operator provides critical, single point, logical 
resource to physical location mapping. In the absence of such an implementation each 
client, including every server acting in a client capacity, would require local updating on 
every occasion that a new resource was added to the system. Such a scheme would 
quickly become unmanageable. Two incoming data streams, req_resource and 
mod_obj_loc respectively, correspond to client-generated requests for resources and to 
administrator-generated messages effecting changes to the locations of those resources. 
The lone outgoing data stream, resource_phys_loc, carries the information needed to 
effect communication with the resource itself, or, in the case of a file resource, initiate the 
file transfer process. 

The Print Server composite operator was illustrated to reflect incoming print 
requests and corresponding outgoing print job spooled messages. Additionally, it was 
presumed that print requests might be one of two varieties: existing text, map, or graphic 
files, or screen grabs. To account for the former case, the data stream request_file was 


drawn to represent a message to the Name Server for file location information, and the 


53 


data stream receive_file drawn to represent the corresponding response. To account for 
the latter case, some black box processing is presumed for the acquisition of ADSD 
display parameters and the building of a file into the appropriate format for printing. 

The Security Server is a composite operator encapsulating the functionality 
necessary to provide secure communication sessions which preserve the secrecy, integrity, 
and authenticity of the session content. Incoming data streams, representing 
user-generated requests for certificates, keys, and signatures, were drawn to depict the 
initiation of a secure session, on behalf of any client to any other client or server, with the 
corresponding issue_key, issue_certificate, and issue_signature data streams drawn to 
represent the Security Server operator's responses. Internal processing is presumed at this 
point to include at least the generation, archival, and processing of all certificates, keys, 
and signatures, required by the ADSD client and system servers in the course of 
conducting communication sessions. 

Finally, the Time Server operator is drawn as a composite operator with the 
functionality to produce periodic timestamps, represented by the data stream, new_time, 
which are then used by the Broker operator to orchestrate the message receipt, course of 
action prosecution, and message-generation upon which the entire system relies for 
efficient and predictable behavior. Decomposition of the Time Server operator is 
expected to reveal the functionality required to develop and operate a global clock, 


capable of generating accurate, fault-tolerant system timestamps. 
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De Air Defense System Display (ADSD) Decomposition 

The ADSD, presented in figure 5, was decomposed to incorporate the 
functionality necessary to retain locally managed state for user-defined track filters, 
database record filters, message filters, map display filters, and alert filters. The provision 
of atomic operators which maintain the state of a user's outstanding filter requests allows 
for efficiencies to be implemented at the ADSD level. For example, were a user to request 
track information on all F/A-18s in a particular air sector over a given 15 minute period of 
time, and then follow that up with a request for track information on all F/A-18s in the 
same air sector over a 30 minute period, rather than build a new filter to manage incoming 
tracks which meet this new description, the atomic operator responsible for managing 
track filters, track_display_db in the prototype, would reconcile the time fields of the 
original filter request and generate a subscription message intended to reflect this 
modification to the Broker and Track Server operators. Locally maintained state can also 
reduce message traffic within the system by validating user-generated requests denying, 
for example, requests which are redundant, incomplete, or unachievable within established 
time constraints. Each of the five filter request operators are drawn to indicate the receipt 
of filter modification messages, the self-generation of those messages back to the 
operators to indicate an effected change of state, and the generation of new subscription 
messages intended to indicate to the appropriate service a change in the desired service 
requests. 


A security_manager atomic operator was developed to incorporate the 
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functionality required by a user desiring the initiation of a secure session with another 
client or server. The operator was drawn to illustrate the triggering of independent 
requests for the components of a secure session: certificates, keys, and signatures. These 
requests are based upon incoming messages stored in the msg_out data stream which are 
generated by the user developing content, for example, USMTF messages or e-mail, 
intended for transmission to a designated recipient. The content would be held pending 
arrival of the secure components, indicated by the iss_certificate, iss_key, and 
isS_signature data streams, whereupon the security_manager operator self-generates state 
modification messages, wraps the content accordingly, and places the resulting secure 
message on the outgoing data stream secure_msg_out. Efficiencies achieved by a locally 
maintained state operator, such as security_manager, include the reuse of existing 
certificate, key, and signature information during multiple secure sessions between the 
Same parties, and the validation of secure session requests based upon predetermined rules 
for session requests with specific destination clients and servers. 

A final ADSD functionality is illustrated with the print_manager atomic operator. 
A stateless operator, the print_manager would process print requests ensuring, for 
example, that the requests were properly formatted, addressed, and pniritized. The 
Corresponding message, print_response, would be processed with information being 
displayed to the user indicating the result of the print request and, perhaps, amplifying 


information on the handling of the print request by specific printing devices. 


| 


3. Alert Server 

The Alert Server, presented in figure 6, 1s decomposed into three atomic 
operators. The alerts_update_filter operator incorporates the functionality required to 
retain knowledge of all received alert requests. The state maintenance of this atomic 
operator is indicated by the self-generated state stream, alerts_filter, which is triggered by 
an incoming message, req_alerts. The alerts_filter state stream both modifies the internally 
managed database of alerts requests and carries the most recent alert filter request to the 
operator resolve_alerts, itself responsible for resolving existing alert filter requests with 
_ incoming messages. The atomic operator resolve_alerts receives incoming messages on 
the data stream alerts_message_db, which is triggered in response to the receipt at 
operator update_msgs of incoming messages generated by the composite operator's 
subscription to the Message Server. Like the alerts_update_filter, the update_msgs 
operator maintains state through the self-generated state stream, alerts_message_db, 
which modifies an internally managed database of incoming messages. 

The critical resolution process, whereby alert messages are generated and put on 
the respond_alerts data stream, is encapsulated in the resolve_alerts operator which itself 
is triggered upon receipt of messages from either of the alerts_update_filter operator or 
the update_msgs operator. One note on the potential implementation of the 
alerts_update_filter operator: in order to preserve modularity and independence in the 
development of client operators, this operator should be completely unaware of which 


clients are requesting which particular alert filters. Instead, this operator maintains 
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knowledge only of what messages are to be monitored for the generation of alerts. Such 
an implementation simplifies the record-keeping required of the alerts_update_filter and 
passes the burden of associating specific requests to particular clients to the Broker 
operator, where it must reside in order to allow development of an Alert Server which has 
no knowledge or dependence on potential client implementations. 

4. Broker 

The Broker operator, presented in figure 7, is decomposed into three atomic 
operators. The client_thread_manager operator processes requests from clients, or 
servers acting as clients, either constructing new threads, modifying existing threads, or 
destroying threads in response to those requests, and puts responses to those requests for 
service on the data stream client_req, as appropriate. This data stream is drawn as a State 
stream, indicating that the message on the data stream is used not only to trigger the 
business_rules_manager operator, but also to modify the state of the internally managed 
client thread database. The client_thread_manager also receives the data stream 
valid_srv_response, representing a response to a client request for service. It processes 
the content of this message, updating the record-keeping associated with that particular 
client request, and forwards the message on the relevant data stream corresponding to the 
initial request. 

The business_rules_manager atomic operator is where the "personality" of the 
entire SAAWC system resides. This is the operator which contains the intelligence to 


adjudicate client-generated requests for service, validating not only client requests but also 
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server responses, prioritizing delivery of those responses to real-time and non-real-time 
clients alike, and correlating requests for specific types and values of information to 
reduce the number of duplicate transmissions throughout the network. The 
business_rules_manager operator processes the client_req data stream and responds to 
valid requests by generating the valid_client_req message to the server_thread_manager 
operator. Similarly, it processes the srv_response data stream and responds to valid server 
responses by generating the valid_srv_response message to the client_thread_manager. 
The mod_rules data stream represents the interface between the system administrator and 
the system for effecting modifications to the set of rules for determining system-wide 
prioritization, validation, and domain-specific logic. The mod_rules data stream is 
represented as a State stream, indicating self-modification of the state of the 
business_rules_manager operator through the content of this data stream. 

The  server_thread_manager atomic. operator functions much as_ the 
client_thread_manager operator does, maintaining a database of all current subscription 
threads to system servers, each thread referencing a capsule of data attributes which 
indicate the status, originator, destination, and message content associated with a thread 
session. The operator updates itself through the state stream srv_response, a copy of 
which is also passed to the business_rules_manager for content validation. 

5, Communications Server 

The Communications Server operator, presented in figure 8, is decomposed into 


two sets of TCP/IP application processor operators, two network interface operators for 
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handling messages delivered to, and received from, the network, and a session_manager 
atomic operator which manages the establishment and maintenance of TCP/IP application 
sessions initiated by the ADSD client. The two sets of TCP/IP application processors 
represent a subset of the larger group of TCP/IP application protocols in use today. The 
Simple Mail Transfer Protocol (SMTP) provides for simple management of e-mail client 
and server operations, the Hyper Text Transfer Protocol (HTTP) is a mechanism by which 
World Wide Web pages are transferred from servers in response to client requests, the 
Simple Network Management Protocol (SNMP) provides a means for the monitoring and 
management of network operations, the User Datagram Protocol (UDP) is used for 
connectionless data transfers in which dropped packets can be tolerated, and the File 
Transfer Protocol (FTP) provides a mechanism and a set of commands for effecting the 
transfer of files between nodes on the network. 

Each of these protocols is represented by both an outgoing process operator and 
an incoming process operator. The outgoing process operators take client-generated 
messages and package them for transmission on the network. Protocol-specific message 
segmenting, labeling, and prioritization are among the potentially implementable activities 
at this level. The incoming process operators receive the respective protocol encapsulated 
packets, strip the protocol header information from the messages, reconstitute the 
messages into their original, pre-transmission state, and forward the messages to the 
addressed destination. 


The network interface atomic operators implement specific network datalink-layer 
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functionality, packing and unpacking, segmenting and reconstituting, transmitting and 
retransmitting packets as necessary. The characteristics of datalink-layer transmission 
protocols, such as IEEE 802.3 or IEEE 802.5, would be simulated at this level in order to 
evaluate potential performance bottlenecks or constraints within the network. Finally, the 
session_manager atomic operator would manage and archive session requests in response 
to the user-generated requests for new sessions arriving on the session_control data 
stream. This data stream is implemented as a state stream, modifying the internally 
managed database of TCP/IP application sessions. The incoming session_data data stream 
carries the content of the session-specific request which may, in the event the content 
references an FTP session, for example, contain the commands and arguments required to 
initiate a file transfer between client and server. 

6. Correlation Server 

The Correlation Server operator, presented in figure 9, is decomposed into five 
atomic operators. Three operators implement the functionality of receiving archival 
messages, and of triggering self-generated responses which modify the internally managed 
state of the operators, while simultaneously putting the responses on outgoing data 
streams destined for a correlation processor. The three operators identify functionality for 
the archiving of track requests, database records, and tracks developed from 
sensor-derived information distributed throughout the network. The first of the two 
correlating operators, correlate_tracks, reconciles incoming tracks with database records 


in order to produce a "value-added" track with some higher degree of assurance as to the 


65 


External Jet at 





corre! _filter 


respond_db_change 
Extemai 





External Racks 


correl_track_db 


subscribe_tracks 
subscnbe_db_changes 
orrel_ filter 


respond _valid_tracks 





valld_ tracks 


orrel_record_db 


orrelate 


| _track_db 


External 


External 


Extemal 


Figure 9. Correlation Server Operator 


66 


track's authenticity. The second correlating operator, correl_handle_query, reconciles the 
value-added tracks with user-generated track requests, responding only with matches 
which represent the identification of a particular track, or set of tracks, of interest to the 
user. Finally, and as previously described, the two data streams, subscribe_tracks and 
subscribe_db_changes, represent requests from the Correlation Server to subscribe to the 
Track Server and Data Management Server in order to continually receive new track and 
database record information, reflecting both the dynamic nature of the rapidly changing 
battlefield and the changing needs of the ADSD operator. 

2 Data Management Server 

The Data Management Server, presented in figure 10, incorporates the 
functionality to determine the data type and request type of a particular data management 
request before passing the message content to a particular DBMS for action. Three 
DBMS types, an object DBMS, a conventional record DBMS, and a file DBMS, are 
specified in the Data Management Server as a collection of independent processes acting 
on requests for querying, modifying, adding, and deleting the request contents from the 
respective DBMSs'. Each DBMS consists of four similar atomic operators, each of which 
is triggered by a message received from the resolve_request_type atomic operator. With 
the exception of those atomic operators handling DBMS queries, or record retrievals, each 
of the DBMS atomic operators generates a state stream, for the purpose of 
self-modification, as well as generating an outgoing data stream, corresponding to the 


triggering input stream, which carries the result of the DBMS request back to the request 
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originator. All responses to DBMS requests are passed from the DBMS atomic operators 
to the format_response operator which packages the response in a DBMS-independent 
format for further transmission to the request originator. 

The resolve_data_type atomic operator is illustrated as a process which receives 
the initial requests for DBMS action, determines the appropriate DBMS for service, and 
forwards the resolved request to the resolve_request_type atomic operator. An 
implementation of the resolve_request_type atomic operator would be made aware of the 
available DBMS methods through contact with each DBMS's published interface and 
would be responsible for invoking the correct method based upon the resolved request 
type indicated in the incoming req_data_type data stream. 

A sample transaction, to delete a conventional database record from a database, 
would proceed as follows: the request would be identified as carrying data type database 
record in the resolve_data_type atomic operator; the request would be identified as 
request type delete database record in the resolve_request_type atomic operator; the 
delete database record request would be forwarded to the delete_record atomic operator 
where the record deletion would be effected, and a corresponding request status message 
would be generated; the request status message would be processed by the 
format_response atomic operator where it would be stripped of any DBMS-specific 
packaging and formatted for transmission to, and processing by, the request originator. 

8. Device Server 


The Device Server, presented in figure 11, is decomposed into a single, simple 
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atomic operator, mount_device. Triggered by the incoming data _ stream, 
administer_device, an implementation of the mount_device operator would retrieve the 
configuration file referenced in the administer_device message and apply the appropriate 
device driver information to enable the device on the network. Alternatively, the 
administer_device data stream could carry information indicating the removal of a 


referenced device from the network. In the latter case, the device_status message would 


device_status 





Figure 11. Device Server Operator 


be transmitted to the Broker with a value of false, indicating to the Broker operator the 
removal of the device from the network. The Broker operator would generate a 
corresponding message to the Name Server, which would update its table of logical to 
physical resource mappings accordingly. A value of true on the device_status data stream 
would indicate to the Broker operator the addition of a device to the network, in this case 
causing the Broker operator to generate a message to the Name Server for the appropriate 


modifications to its table of logical to physical resource mappings. 
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”; Map Server 

The Map Server, presented in figure 12, also is functionally decomposed into a 
single atomic operator, locate_map. This operator is triggered upon receipt of the 
incoming request_map data stream, the contents of which reference a logical map or 
image requested by the ADSD client. An implementation of the locate_map atomic 
operator would map the referenced map or image to an actual map or image file and then 


initiate a file transfer to deliver that file to the ADSD client for display. 


request_map deliver_map 





Figure 12. Map Server Operator 
10. Message Server 
The Message Server, presented in figure 13, is functionally decomposed into four 
atomic operators: three are associated, respectively, with the archiving of incoming 
messages, requests for messages, and the matching of the two; the fourth atomic operator, 
template_database, responds to user-generated requests for message templates by 
searching an internally managed database of templates, then responding on the outgoing 


data stream, respond_template, with the requested message template. 
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Figure 13. Message Server Operator 


we 


The msg_update_filter atomic operator provides the functionality for the archiving 
of message filter requests, in the same manner as the alerts_update_filter atomic operator 
in the Alert Server. Message requests are delivered on the incoming data stream 
request_msgs, triggering a corresponding state stream msg_filter, which updates the 
operator itself and notifies the msg_handle_query atomic operator of the new filter request 
via the msg_filter data stream. The archive_msgs atomic operator provides identical 
functionality to that described in the update_msgs atomic operator of the Alert Server. It 
receives incoming messages, generates a self-modifying state stream, msg_message_db, 
and puts a copy of the new message on the msg_message_db data stream delivered to the 
msg_handle_query atomic operator. This operator encapsulates the functionality found in 
the resolve_alerts atomic operator of the Alert Server, which is to match incoming 
requests for messages against the actual incoming messages themselves. Matches result in 
an outgoing data stream, respond_msgs, which delivers the matched message to the 
requesting client via the Broker. 

11. Name Server 

The Name Server, presented in figure 14, plays a critical role in the distributed 
network because it represents a single point of reference, mapping logical names to 
physical locations, facilitating the addition, removal, and location modification of all 
distributed network system resources. In the SAAWC prototype it is functionally 
decomposed into a single atomic operator, however, disguising the underlying complexity 


which would exist in any full implementation of a Name Server, such as the Domain Name 
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System (DNS), or an X.500 compliant directory service. 
The resolve_resource_loc atomic operator 1s triggered by incoming additions, 


deletions, and modifications to the locations of system resources which are carried on the 


mod_obj_loc 





Figure 14. Name Server Operator 


incoming data stream mod_obj_loc. State stream mod_obj_loc is generated as a response, 
and it accomplishes the updating of the internally managed resource database. The 
incoming data stream, req_resource, represents the client-generated request for a 
particular resource. The corresponding generated response is the data stream 
resource_phys_loc which consists of a message indicating the physical location and proper 
name of the requested resource. This would then be used by the Broker to initiate a 


method invocation, data type retrieval, or file transfer on behalf of the client in order to 
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effect the desired results and complete the requested transaction initiated by the 
corresponding client. An example of such a transaction might be the request for retrieval 
of a particular map to be displayed by the ADSD client. 

12. _—_— Print Server 

The Print Server, presented in figure 15, is functionally decomposed into three 
atomic operators. There are potentially two kinds of print requests: those involving files 
of some type, whether opened for reading or writing or even as temporary files serving as 
"buffers" or "pipes", and those involving a screen capture or "frame" in a video display. 
The check_for_file atomic operator receives the incoming print_request data stream and 
determines which of the two print request types is being referenced. If the print_request 
references an existing file, then a corresponding request_file data stream, bearing as 
content the logical name of the requested file, is generated and forwarded to the Broker 
for name resolution and eventual file location and transfer. The requested file 1s received 
on the incoming receive_file data stream, and a corresponding file data stream 1s then 
generated, carrying the referenced file to the spool_file atomic operator for subsequent 
delivery to the appropriate printing device. The spool_file atomic operator generates a 
corresponding outgoing data stream, job_spooled_msg, which can contain information 
pertaining to the print job such as the servicing printer, position of the job in the print 
queue, number of pages in the print job, and so on. In the event that a print request is 
determined to be referencing a screen grab, the pertinent screen parameters are extracted 


from the print request message by the check_for_file atomic operator and 
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forwarded on the outgoing screen_param data stream. The build_file atomic operator 
opens a file for writing and proceeds to create a printable file depicting the referenced 
display. The file name is forwarded on the outgoing file_name data stream to the 
spool_file atomic operator where the print request is finally resolved and the print job 
initiated. 

13. Security Server 

The Security Server, presented in figure 16, is functionally decomposed into three 
independent atomic operators: validate_certificate, validate_key, and validate_signature. 
Implementations of each would validate requests for their respective security mechanisms, 
search an internally managed database for the appropriate component, and respond on an 
outgoing data stream with the requested security measure. The respective outgoing data 
streams for each of the atomic operators are also represented as state streams, which 
effect modifications to the internally managed databases identifying the issuance of a 
security measure, the requesting originator, the requested recipient, and other such 
information aS might uniquely describe the particular communication session. 
Implementations of a Security Server might trigger the issuance of related security 
measures from the received request of any one component, might contain the functionality 
to create new security components and discard dated or compromised components, and 
might also incorporate the functionality to generate alerts to the system administrator in 


response to unusual requests for security mechanisms. 
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14. Time Server 


The Time Server, presented in figure 17, consists of a single atomic operator, 





Figure 17. Time Server Operator 


update_time. An implementation of this atomic operator would consist of calls to a 
system time function and the conversion of that returned result into a timestamp which 
could then be forwarded to the Broker on the outgoing data stream new_time. Though 
functionally simple, the Time Server provides a critical service by making possible the 
chronological ordering of all system messages, enabling the Broker to enforce the 
validation and prioritization rules it has inherited. 

15. Track Server 

The Track Server, presented in figure 18, consists of three atomic operators 
functionally aligned with the atomic operators described in the decompositions of the Alert 
Server and the Message Server. The update_filter atomic operator responds to new track 
requests contained within the incoming req_tracks data stream by generating a 
self-modifying state stream, filter, which updates the internally managed database of 


requested tracks. The receipt of a req_tracks data stream also triggers the release of a 
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message on the outgoing data stream filter, which carries the newly requested track filter 
to the handle_query operator for matching against existing track records. The 
update_tracks atomic operator receives new tracks on the incoming feed_tracks data 
stream, responding with the state stream track_db which modifies the internally managed 
database of tracks, and with the outgoing data stream track_db, which carries a message 
to the handle_query atomic operator indicating the existence of the new track. The 
handle_query atomic operator responds to filter data streams and to track_db data streams 
by attempting to match requests for tracks with notifications of existing tracks, responding 
with successful matches on the outgoing data stream respond_tracks. The respond_tracks 
data stream bears the announcement of a matched track and delivers the message, via the 
Broker, to the client originating the track request. 
E. CAPS PROTOTYPE SYSTEM DESCRIPTION LANGUAGE EDITING 
Upon conclusion of the drawing phase of the CAPS prototyping process, the next 
step was to edit the PSDL code which had been generated by the finished diagrams. All 
Streams designated as state streams in the diagrams, whether to change the state of 
associated operators or to break existing cycles in the prototype, needed to be identified 
and declared syntactically within the PSDL code and properly initialized to reflect 
beginning states. Their declarations as data streams, the default representation for drawn 
streams, needed to be deleted as well, to prevent duplicate declarations in the PSDL code. 
All user-defined data types, contemplated during the drawing phase but first 


declared in the PSDL editing phase, needed to be syntactically declared and specified as 
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well. In addition, an operator needed to be specified in the user-defined data type 
specification to provide default initialization of newly instantiated user-defined objects. 
All user-defined data types were specified to contain an operator EMPTY, which simply 
returns a reference to a default initialization, implemented in an Ada source code file, of 
that particular user-defined data type. For the purposes of this prototype, decisions were 
made to identify a large number of user-defined data types, and to give them names meant 
to clarify the intended purpose of those data types. The user-defined data types identified 
and implemented are: ADMINISTER, ALERT, BITS, CERTIFICATE, DB_RECORD, 
~ DEVICE, KEY, MAP, MESSAGE, PARAM, PATH, SIGNATURE, TIMESTAMP, and 
TRACKS. Figure 19 presents the hierarchy of user-defined data types. 

The bottom level contains primitive types and component records which are 
themselves fields in the composite records of the higher levels. The highest level contains 
the user-defined data type BITS, which is designed to be the composite type containing 
system messages, and which is formatted to comply with a specific network datalink 
protocol. Recognizing the principle of specifying Abstract Data Type (ADT) definitions, 
but omitting the ADT implementations as unnecessary for the purposes of the prototype, 
most user-defined data types were envisioned to be simple record types consisting of a 
primitive data type string component which referenced, perhaps, a configuration file which 
contained the necessary attribute and method information for the instantiation of the 
identified data type. For example, a KEY user-defined data type would consist simply of a 


name field referencing a particular file containing the information necessary to create a 
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Figure 19. User-defined Data Type Hierarchy 
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KEY object, which would then be returned to the KEY request originator for use within 
the system. 

Finally, all operator and data type specifications which were not defined as being 
implemented by decomposed diagrams or primitive types needed to have their source of 
implementation identified. This was a simple matter of specifying, in the PSDL code, Ada 
source code implementations for all atomic operators and user-defined data types. 

F. TRANSLATING AND SCHEDULING 

Timing constraints and control constraints were not used for the prototype but 
represent future work for improving the quality of the simulation. As a consequence, the 
translation process, which produces a compilable Ada source code file to drive the 
prototype’s execution, and the scheduling process, which determines a solution to the 
problem of scheduling the firing of prototype operators given the set constraints, were 
enacted and succeeded with no errors. 

Future implementation of timing and control constraints would be driven by the 
compilation and analysis of real world data describing the amount and type of data flow in 
an actual SAAWC network. For example, data could be collected which documents the 
number of system-generated tracks or the number of record messages queried and 
received by a SAAWC operator over a given period of time. Such data could be collected 
through the monitoring of SAAWC operations during an actual exercise, and could be 


augmented by the analysis of traffic flow through the network. This latter source of data 
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is monitored by the communications personnel manning the Communications Systems 
Control facility. 
G. IMPLEMENTATION 

Every user-defined data type and atomic operator identified in the PSDL code 
required implementation in a separate Ada source code file. The majority of user-defined 
data types were implemented as Ada records, containing a string component which 
represents a named reference to a configuration or encoded data file, and a Boolean 
component indicating whether the nature of the message containing the data type is a 
request or aresponse. The DB_RECORD and TRACKS data types were defined as Ada 
records containing integer, string, and TIMESTAMP components which provide 
elaborating information on the physical entities they abstract. The ALERT data type was 
defined as an Ada record which references DB_RECORDS and TRACKS and provides 
amplifying information in the form of integer and string components which provide 
location and time context for the referenced DB_RECORDS and TRACKS. Finally, the 
MESSAGE data type was implemented as an Ada record referencing all other non-BIT 
user-defined data types. Its role in the prototype is analogous to that of a 
network-specific protocol packet, representing the atomic unit upon which all atomic 
operators designed to function as interfaces within the network can properly perform 
receipt, processing, and repackaging operations. 

All atomic operators were implemented with the simple functionality of invoking 


the system stream output operator to print operator-specific messages to the prototype 
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console text window. Future implementations of the atomic operators would either use 
off the shelf components to provide the requisite functionality or skeleton code to simulate 
the expected behavior of the operator. For example, the atomic operators designated to 
encapsulate the functionality of the DBMS module executing record deletions could be 
implemented with a commercially available DBMS product or by a simple linked list 
implementation which effects a runtime-only simulation of database management behavior. 
H. SUMMARY 

The analysis, design, and implementation of the SAAWC prototype in CAPS 
involved a number of computing tools and document resources. Satisfaction with the 
correct, desired, logical decomposition of the model was the result of numerous drawings 
and protracted analysis with drawing and spreadsheet tools. Familiarization with CAPS 
itself came with the review of available tutonals and user manuals, and with 
experimentation on small-scale prototypes. Improvements to the prototype design often 
came in the wake of articulations of the design philosophy in writing, which occurred 
during the concurrent editing of this document. Finally, refinement of the prototype 


design resulted from numerous critical comments from peers and advisors. 
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V. CONCLUSION 


A. SAAWC PROTOTYPE SIGNIFICANCE 

The need exists to identify redundancy in the development of automated 
information systems for employment in the conduct of command, control, communication, 
computing, and intelligence operations both in peace and in time of conflict. The 
prerequisite for this identification is a thorough examination and analysis of the data types 
and processes, both common support and task-specific, which exist in a particular 
operational domain, such as the Sector Anti Air Warfare Center. The SAAWC is a 
pertinent candidate and an important model for this analysis, as it incorporates much of the 
functionality exhibited by C4I workstations: consumption of real-time and non-real-time 
data, dynamic Figpley of operational events in the context of the time and space which 
they occupy, redundant means of communication incorporating text, graphic, audio, and 
video representations, powerful rules-based analysis through the identification and 
presentation of event abstractions and elaborating documentation. Comprehensive and 
accurate identification of the data types and processes which will enable the functionality 
identified as required by system operators 1s a critical first step in the design and 
implementation of the strictly defined software modules essential to the often touted vision 
of "plug and play." Comprehensive analysis of these data types and processes will permit 
the development of well-defined interfaces, which in turn will permit the independent and 
concurrent development of the common support and task-specific implementations which 


will satisfy the functional needs of the operator. 
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B. CAPS PROTOTYPING 

Prototyping is a quick, low-risk, cost-effective solution to the problem of 
developing automated information systems which augment and, increasingly, enable the 
conduct of C4I operations. The NPS Computer Aided Prototyping System prototyping of 
the SAAWC facilitated a deliberate, logical analysis of the atomic functionality required to 
provide those services identified in the SAAWC reference manual as well as those which 
are in compliance with the DIT COE, GCCS, and JMCIS architectural guidelines. CAPS 
provides an integrated set of tools which permit the specification, design, and 
implementation of a prototype to occur within a single integrated development 
environment. CAPS also provides the functionality to propagate changes made to the 
prototype design in the graphical editor both to the PSDL specification and to the source 
code file which drives the executing prototype. Together with the integrated schedule 
writing module, these CAPS capabilities increase the likelihood that a developer 
attempting to model a distributed, networked system will be able to create a simulation 
which more closely fulfills the needs of the operational community. 
G. FUTURE WORK 

The work completed on the CAPS SAAWC prototype leaves open the possibility 
of future work on several levels. The basic upper level SAAWC decomposition could be 
used with another SAAWC functional area, for example the Air Defense Mission Display, 
replacing the Air Defense Situation Display operator. The upper level decomposition 


could be used with some completely unrelated functional operator, such as the Intelligence 


88 


Analysis Display in the Tactical Air Command Center, replacing the ADSD operator. 
Additional composite operators might be identified to provide common services either 
partially provided for or omitted in the current upper level decomposition. Such operators 
might include a directory service, a resource scheduler service, or a network management 
service. Composite operators currently identified in the upper level diagram might be 
decomposed differently to identify additional functionality or to provide a greater level of 
detail in the currently identified functionality. For example, the update_filter operator in 
the Track Server composite operator might be decomposed to convey functionality which 
determines whether incoming filter requests are redundant or improperly initialized. 
Timing constraints and control constraints could be used within designated operators to 
construct a prototype which more accurately behaves like the real-world system it is 
simulating. Such behavior could be examined to identify the nodes and datalinks which 
present potential system bottlenecks, or which require exceptional processing and 
secondary storage resources. Finally, some or all user-defined data types and atomic 
operators could be implemented with commercially available components or by improving 
the existing Ada source code to more closely resemble the behavior of the simulated 


system. 
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APPENDIX A 


SAAWC PROTOTYPE SOURCE CODE 


9] 


TYPE ADMINISTER 
SPECIELCATION 
OPERATOR EMPTY 
SPECIFICATION 
OUTPUT 
dummy : ADMINISTER 
END 
END 
IMPLEMENTATION ADA ADMINISTER 


END 


DYE ALERT. 
SPECIFICATION 
OPERATOR EMPTY 
SPECIFICATION 
OUTPUT 
dummy : ALERT 
END 
END 
IMPLEMENTATION ADA ALERT 


END 


TYPE BITS 
SPECIFICATION 
OPERATOR EMPTY 
SPECI FICATION 
OUTPUT 
dummy : BIT's 
END 
END 
IMPLEMENTATION ADA BITS 


END 


TYPE CERTIETCALe 
SPECI FICATION 
OPERATOR EMPTY 
SPECIFICATION 
OUTPUT 
dummy : CERTIFICATE 
END 
END 
IMPLEMENTATION ADA CERTIFICATE 


END 


TYPE DBURECORD 
SPECIFICATION 
OPERATOR EMPTY 
SPECIFICATION 
OUTPUT 
dummy : DB _RECORD 
END 
END 
IMPLEMENTATION ADA DB_RECORD 


END 


TYPE DEVICE 
SPECIFICATION 
OPERATOR EMPTY 
SPECIFICATION 
OUTPUT 
dummy : DEVICE 


END 
END 
IMPLEMENTATION ADA DEVICE 


END 


TYPE KEY 
SPECIFICATION 
OPERATOR EMPTY 
SPECIFICATION 
OUTPUT 
dummy : KEY 
END 
END 
IMPLEMENTATION ADA KEY 


END 


TYPE AP 
SPECIFICATION 
OPERATOR EMPTY 
SPECIFICATION 
OUTPUT 
Gummy : MAP 
END 
END 
IMPLEMENTATION ADA MAP 


END 


TYPE MESSAGE 
SPECIFICATION 
OPERATOR EMPTY 
SPECIFICATION 
OUTPUT 
dummy : MESSAGE 
END 
END 
IMPLEMENTATION ADA MESSAGE 


END 


TYPE PARAM 
SPECIE ICATION 
OPERATOR EMPTY 
SPECIFICATION 
OUTPUT 
dummy : PARAM 
END 
END 
IMPLEMENTATION ADA PARAM 


oy ial 
oe. 


END 


TYPE PATH 
SPECIFICATION 
OPERATOR EMPTY 
SPECIFICATION 
OUTPUT 
dummy : PATH 
END 
END 
IMPLEMENTATION ADA PATH 


END 


TYPE SIGNATURE 


92 


SAAWC.psdl Wed Jul 


SPECIFICATION 
OPERATOR EMPTY 
SPECIFICATION 
OUTPUT 
dummy : SIGNATURE 
END 
END 
IMPLEMENTATION ADA SIGNATURE 


END 


TYPE TIMESTAMP 
SPECIFICATION 
OPERATOR EMPTY 
SPECEFICATIGCIH 
OUTPUT 
dummy : TIMESTAMP 
END 
END 
IMPLEMENTATION ADA TIMESTAMP 


END 


TYPE TRACKS 
SPECIFICATION 
OPERATOR EMPTY 
SPECIFICATION 
OUTPUT 
dummy : TRACKS 
END 
END 
IMPLEMENTATION ADA TRACKS 


END 


SPERATOIR AD_Sit_interface 
SPECIFICATION 
INPUT 
ad_del_alerts : ALEPT, 
ad_del_data : DB_RECORD, 
ad_del_map : MAP, 
ad_del_msgs : MESSAGE, 
ad_del_tracks : TRACKS, 
data_out : MESSAGE, 
filter_alerts : ALEPT, 
filter_data : DB_RECORD, 
filter_maps : MAP, 
filter_msgs : MESSAGE, 
filter_tracks : TRACKS, 
iss_certificate : CERTIFICATE, 
iss_key : KEY, 
isS_signature ; SIGNATURE, 
print_file : MESSAGE, 
print_response : MESSAGE, 
reg_secure_session : MESSAGE 
OUTPUT 
ad_sub_alerts : ALERT, 
ad_sub_data : DB_RECORD, 
ad_sub_map : MAP, 
ad_sub_msgs : MESSAGE, 
ad_sub_tracks : TRACKS, 
print_req : MESSAGE, 
req_certificate : CERTIFICATE, 
req_key : KEY, 
req_signature : SIGIATURE, 
secure_msg_out : MESSAGE 


23 16:43:22 


oo 


IMPLEMENTATION 
GRAPH 
VERTEX alerts_display_db 


VERTEX data_display_db 
VERTEX map_display_db 
VERTEX msg_display_db 
VERTEX msg_out_manager 
VERTEX print_manager 
VERTEX security_manager 
VERTEX track_display_db 


EDGE ad_del_alerts 
EXTERNAL -> 
alerts_display_db 


EDGE ad_del_data 
EXTERNAL -> 
data_display_db 


EDGE ad_del_map 
EXTERNAL -> 
map_display_db 


EDGE ad_del_msgs 
EXTERNAL -> 
msg_display_db 


EDGE ad_del_tracks 
EXTERNAL -> 
track _disp]ay_db 


EDGE ad_Sub_alerts 
alerts_display_db -> 
EXTERNAL 


EDGE ad_sub_data 
data_display_db -> 
EXTERNAL 


EDGE ad_sub_map 
map_display_db -> 
EXTERNAL 


EDGE ad_suib_msgs 
msg_display_db -> 
EXTERNAL 


EDGE ad_sub_tracks 
track_display_db -> 
EXTERNAL 


EDGE data_out 
EXTERNAL -> 
msg_out manager 


EDGE filter_alerts 
EXTERNAL -> 
alerts_display_dhb 
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alerts_display_db -> 
alerts_display_db 


EDGE filter_data 
EXTERNAL -> 
data_display_db 


EDGE filter_data 
data_display_db -> 
data_display_db 


EDGE filter_maps 
EXTERNAL -> 
map_display_db 


EDGE filter_maps 
map_display_db -> 
map_display_db 


EDGE filter_msgs 
EXTERNAL -> 
msg_display_db 


EDGE filter_msgs 
msg_display_db -> 
msg_display_db 


EDGE filter_tracks 
EXTERNAL -> 
track_display_db 


EDGE filter_tracks 
track_display_db -> 
track_display_db 


EDGE iss_certificate 
EXTERNAL -> 
security_manager 


EDGE iss_certificate 
security_manager -> 
security manager 


EDGE iss_key 
EXTERNAL -> 
security_manager 


EDGE iss_key 
security_manager -> 
security_manager 


EDGE iss_signature 
EXTERNAL -> 
security_manager 


EDGE iss_signature 
security_manager -> 
security_manager 


EDGE msg_out 
msg _out_manager -> 
security manager 


EDGE print_file 
EXTERNAL -> 
print_manager 
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EDGE print_req 
print_manager -> 
EXTERNAL 


EDGE print _response 
EXTERNAL -> 
print_manager 


EDGE req certificate 
security_manager -> 
EXTERNAL 


EDGE req_key 
security_manager -> 
EXTERNAL 


EDGE req_secure,_sessjon 
EXTERNAL -> 
security_manager 


EDGE req signature 
security_manager -> 
EXTERNAL 


EDGE secure_msg_out 
security_manager -> 
EXTERNAL 

DATA STREAM 
Msg_out : MESSAGE 
CONTROL CONSTRAINTS 
OPERATOR alerts_display_db 


OPERATOR data_display_db 
OPEPATOR map_display db 

OPERATOR msg_display_db 

OPERATOR msg_out_Manager 
OPERATOR print_managet 


OPERATOR security_manager 
OPERATOR track_display_db 
END 


OPERATOR Alerts_server 
SPECIFICATION 
INPUT 
feed_m¢gs : MESSAGE, 
rey alerts : ALERT 
OUTPUT 
respond_alerts : ALERT 
STATES 
alerts_filter : TRACKS 
INITIALLY 
EMPTY 
STATES 
alerts_message_db : DB_RECORD 
INI] TIALLY 
EMPTY 
END 
IMPLEMENTATION 
GRAPH 
VERTEX alerts_update_filter 
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VERTEX resolve_alerts 
VERTEX update_msgs 


EDGE alerts_filter 
alerts_update_ filter -> 
resoOlve_alerts 


EDGE alerts_filter 
alerts_update_filter -> 
alerts_update_filter 


EDGE alerts_message_db 
update_msgs -> 
update_msgs 


EDGE alerts_message_db 
update_msgs -> 
resolve_alerts 


EDGE feed_msgs 
EXTERNAL -> 
update_msgs 


EDGE req_alerts 
EXTERNAL -> 
alerts_update_filter 


EDGE respond_alerts 
resolve_alerts -> 
EXTERNAL 
CONTROL CONSTRAINTS 
OPERATOR alerts_update_filter 


OPERATOP resolve_alerts 


CPEPATOP update_msgs 
END 


OPEPATOPR Comms_server 
SPECIFICATION 
INPUT 
bits_in : BITS, 
session_control : MESSAGE, 
session_data : MESSAGE 
CUTPUY 
FTP_msg_in : MESSAGE, 
HTTP_msg_in : MESSAGE, 
SMTP_msg_in : MESSAGE, 
SNMP_msg_in : MESSAGE, 
UDP_msg_in : MESSAGE, 
bitszout = “BETS 
END 
IMPLEMENTATION 
GRAPH \ 
VERTEX FTP_processor_in 


VERTEX FTP_processor_out 
VERTEX HTTP_processor_in 
VERTEX HTTP_processor_out 


VERTEX SMTP_processor_in 


VEP TEX SMTP processor_out 
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VERTEX SNMP_processor_in 
VERTEX SNMP_processor_out 
VERTEX UDP_processor_in 
VERTEX UDP_processor_out 
VERTEX network_interface_in 
VERTEX network_interface_out 
VERTEX session_manager 


EXGE ETP2in 
session_manager -> 
FTP_processor_in 


EDGE FTP_msg_in 
PT 2processor_in -> 
EXTERNAL 


EDGE FTP_msg_out 
session_manager -> 
FTP_processor_out 


EDGE FTP_out 
FTP_processor_out -> 
net work_interface_out 


EDGE HTTP_in 
session_manager -> 
HTTP_processor_in 


EDGE HTTP_msg_in 
HTTP _processor_in -> 
EXTERNAL 


EDSESHT TP msg_out 
session_manager -> 
HTTP_processor_out 


EDGE HTTP_out 
HTTP_processor-out -> 
network_interface_out 


EDGE SMTP_in 
session_manager -> 
SMTP _processor_in 


EDGE SMTP_msg_in 
SMTP ‘processor in > 
EXTERNAL 


EDGE SHTP_omsg mola. 
session_manage: . 
SUTP_processor . ;° 


EDGE SHTP_out 
SMTP_processo!r _out > 
net work_inter face_out 


EDGE SNMP_in 
session_manager -> 
SNMP_processor_in 


oe 
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SNMP_processor_in -> 
EXTERNAL 


EDGE SNMP_msg_out 
session Manager -> 
SNMP_processor_out 


EDGE SNMP_out 
SNMP_processor_out -> 
network_interface_out 


EDGE UDP_in 
session_manager -> 
UDP_processor_in 


EDGE UDP_msg_in 
UDP_processor_in -> 
EXTERNAL 


EDGE UDP_msg_out 
session_manager -> 
UDP_processor_out 


EDGE UDP_out 
UDP_processor_out -> 
network_interface_out 


EDGE bits_in 
EXTERNAL -> 
network_interface_in 


EDGE bits_out 
network_interface_out -> 
EXTERNAL. 


EDGE data_str_in 
network_interface_in -> 
session_manager 


EDGE session_control 
session_manager -> 
session_manager 


EDGE session_control 
EXTERNAL -> 
session_manager 


EDGE session_data 
EXTERNAL -> 
session_manager 


DATA STREAM 


FTP_in : MESSAGE, 
FTP_msg_out : MESSAGE, 
FTP_out : MESSAGE, 
HTTP_in : MESSAGE, 
HTTP_msg_out : MESSAGE, 
HTTP_out : MESSAGE, 
SMTP_in : MESSAGE, 
SMTP_msg_out : MESSAGE, 
SMTP_out : MESSAGE, 
SNMP_in : MESSAGE, 
SNMP_msg_out : MESSAGE, 
SNMP_out : MESSAGE, 
UDP_in : MESSAGE, 
UDP_msg_out : MESSAGE, 
UDP_out : MESSAGE, 
Gata_str_in : MESSAGE 


CONTROL CONSTRAINTS 


OPERATOR FTP_processor_in 
OPERATOR FTP_processor_out 
OPERATOR HTTP_processor_in 
OPERATOR HTTP_processor_out 
OPERATOR SMTP_processor_in 
OPERATOR SMTP_processor_out 
OPERATOR SNMP_processor_in 
OPERATOR SNMP_processor_out 
OPERATOR UDP_processor_in 
OPERATOR UDP_processor_out 
OPERATOR network_interface_in 
OPERATOR network_interface_out 


OPERATOR session_manager 


OPERATOR Correlat_server 
SPECIFICATION 


INPUT 
cs_del_ tracks : TRACKS, 
request_tracks : TRACKS, 
respond_db_change : PDB_RECORD 
OUTPUT 
respond_valid_tracks : TRACKS, 
subscribe_db_changes : DB_RECOPRD, 
subscribe_tracks : TRACKS 
STATES 
correl filter : TRACKS 
INITIALLY 
EMPTY . 
STATES 
correl_record_db : DB_RECORD 
INITIALLY 
EMPTY 
STATES 
corre] _track_db : TRACKS 
INITIALLY 


EMPTY 


¢ 


IMPLEMENTATION 
GRAPH 


VERTEX correl_handle_query 
VERTEX correl_update_filter 
VERTEX correl_update_ tracks 
VERTEX correlate_tracks 
VERTEX update_tactical_db 
EDGE correl_filter 


correl_update_filter -> 
correl_update_filter 
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EDGE correl_filter 
correl_update_filter -> 
correl_handle_query 


EDGE correl_record_db 
update_tactical_db -> 
update_tactical_db 


EDGE correl_record_db 
update. _tactical_db -> 
correlate_tracks 


EDGE correl_track_db 
correl_update_tracks -> 
correl_update_tracks 


EDGE corre] _track_db 
correl_update_tracks -> 
correlate _tracks 


EDGE cs_del_ tracks 
EXTERNAL -> 
correl_update_tracks 


EDGE request_tracks 
EXTERNAL -> 
correl_update_filter 


EDGE respond_db_change 
EXTERNAL -> 
update_tactical_db 


EDGE respond_valid_tracks 
correl_handle_query -> 
EXTERNAL 


EDGE subscribe_db_changes 
correl_update_filter -> 
EXTERNAL 


EDGE subscribe_tracks 
correl_update_filter -> 
EXTERNAL 


EDGE valid_tracks 
correlate_tracks -> 
correl_handle_query 

DATA STREAM 

valid_tracks : TRACKS 
CONTROL CONSTRAINTS 

OPEPATOR correl_handle_query 


OPERATOR correl_update_filter 
OPERATOR correl_update_tracks : 
OPERATOR correlate_tracks 


OPERATOR update tactical_db 
Ell 


OPERATOR Data_manage_server 
SPECTEICATLON 
INPUT 
req_data : DB_RECORD 
OUTPUT 
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STATES 
obj_add_db : DB_RECORD 
INITIALLY 
EMPTY 
STATES 
obj_mod_db 
INITIALLY 
EMPTY 
STATES 
obj_del_db : DB_RECORD 
INITIALLY 
EMPTY 
STATES 
rec_add_db : DB_RECORD 
INITIALLY 
EMPTY 
STATES 
rec_mod_db : DB_RECORD 
INITIALLY 
EMPTY 
STATES 
rec_del_db : DB_RECORD 
INITIALLY 
EMPTY 
STATES 
file_add_db : DB_RECORD 
INITIALLY 
EMPTY 
STATES 
file_mod_.db : DB_RECORD 
INITIALLY 
EMPTY 
STATES 
file_del_db 
TNITIALLY 
EMPTY 


DB_RECORD 


DB_RECORD 


ENG 
IMPLEMENTATION 
GRAPH 

VERTEX add_file 
VERTEX add_object 
VERTEX add_record 
VERTEX delete_file 
VERTEX delete_object 


VERTEX delete_record 


i 


VERTEX tormat _t esponse 


VERTEX mod_file 

VERTEX mod_object 

VERTEX mod record 

VERTEX resolve_data_type 
VERTEX resolve_request_type 
VERTEX retrieve_file 


VERTEX retrieve_object 


oF 
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VERTEX retrieve_record 


EDGE file_add_db 
add_file -> 
format_response 


EDGE file_add_db 
add_file -> 
add_file 


EDGE file_del_db 
delete_file -> 
format_response 


EDGE file _del_db 
delete_file -> 
delete_file 


EDGE file _mod_db 
mod_file -> 
format_response 


EDGE file _mod_db 
mod_file -> 
modatile 


EDGE file_retr_msg 
retrieve_file -> 
format_response 


EDGE obj_add_db 
add_object -> 
add_object 


EDGE obj_add_db 
add_object -> 
format_response 


EDGE obj_del_db 
delete_object -> 
format._response 


EDGE obj_del_db 
delete_object -> 
delete_object 


EDGE obj_mod_db 
mod_object -> 
mod_object 


EDGE obj_mod_db 
mod_object -> 
format_response 


EDGE obj_retr_msg 
retrieve_object -> 
format_response 


EDGE rec_add_db 
add_record -> 
format_response 


EDGE rec_add_db 
add_record -> 
add_record 


EDGE rec_del_db 


delete_record -> 
format_response 


EDGE rec_del_db 
delete_record -> 
delete_record 


EDGE rec_mod_db 
mod_record -> 
format_response 


EDGE rec_mod_db 
mod_record -> 
mod_record 


EDGE rec_retr_msg 
retrieve_record -> 
format_response 


EDGE req_add_file 
resolve_request_type -> 
add_file 


EDGE req_add_obj 
resolve_request type -> 
add_object 


EDGE req_add_rec 
resolve_request_type -> 
add_record 


EDGE req_data 
EXTERNAL -> 
resolve _data_type 


EDGE req_data_type 
resolve_data_type -> 
resolve_request_type 


EDGE req del_file 
resolve, request type -> 
delete_file 


EDGE req _del_obj- 
resolve_request_type -> 
delete_object 


EDGE req_del_rec 
resolve_request type -> 
delete_record 

zg 

EDGE‘ réq_mod_file 
resolve_request type -> 
mod_filie 


EDGE ec] mod cals ] 
MisrOlvea_ request tsps 
mod_object 


EDGE req_mod_rec 
resolve_request type -> 
mod_record 


EDGE reg_retr_file 
resolve_request_type -> 
retrieve_file 
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EDGE req_retr_obj 


resolv 


e_request type -> 


retrieve object 


EDGE req 
resolv 


_retr_rec 
e_request type -> 


retrieve_record 


EDGE respond_msg 
format_response -> 


EXTERNAL 
DATA STREAM 
file_retr_msg : DB_RECORD, 
obj_retr_msg : DB_RECORD, 
TeGereer msg * DB RECORD, 


req_add_file : DB RECORD, 
req_add_obj : DB_RECORD, 
req_add_rec : DB_RECORD, 


req_data 


_ts‘pe : DB_RECORD, 


req_del_file +: DB_RECORD, 
req_del_obj : DB_RECORD, 
req_del_rec : DB_RECORD, 


req_mod_file : DB_PRECOPD, 
req_mod_obj : DB_RECORD, 
req_mod_rec : DB_RECORD, 
req retr file : DBORECORD, 
req_retr_obj : DB_RECORD, 
req_retr_rec : DB_PECORD 
CONTROL CONSTRAINTS 
OPERATOR add file 
OPERATOR add_object 
OPERATOR add_record 
OPERATOR delete_file 
OPERATOR delete_object 
OPERATOR delete record 
OPERATOR format _response 
OPEPATOR mod_ file 
OPERATOR mod_object 
OPERATOR mod_record 
OPERATOR resolve_data_type 
OPERATOR resolve_request_type 
OPERATOR retiieve_fite 
{ 
OPERATOR retrieve_object 
OPERATOR retrieve_record 


END 


OPERATOR Dev 


{ce server 


SPEGCLPICATIO 


INPUT 
admini 
OUTPUT 


ster_device : DEVICE 


device_status : BOOLEAN 


rseorm 


IE | 


IMPLEMENTATION 
GRAPH 
VERTEX mount_device 


EDGE administer_device 
EXTERNAL -> 
mount _device 


EDGE device_status 
mount_device -> 
mount_device 


EDGE device_status 
mount_device -> 
EXTERNAL 

CONTROL CONSTRAINTS 

OPERATOR mount_device 

END 


OPERATOR FTP_processor_in 
SPECIFICATION 
INPUT 
FTP_in : MESSAGE 
OUTPUT 
FTP_msg_in : MESSAGE 
END 
IMPLEMENTATION ADA FTP_processor_in 


END 


OPERATOR FTP_processor_out 
SPECIFICATION 
INPUT 
FTP_msg_out : MESSAGE 
OUTPUT 
FTP_out : MESSAGE 
END 
IMPLEMENTATION ADA FTP_processor_out 


END 
OPERATOR HTTP_processor_in ‘ 
SPECIFICATION 
INPUT 
HTTP_in : MESSAGE 
OUTPUT 
HTTP_msg .in : MESSAGE 
END 


IMPLEMENTATION ADA HTTP_processor_in 


END Fi 


rd 


- 


OPERATOR HTTP processor out 
SPECTPICATION 
INPUT 
HTTP_msg_out : MESSAGE 
OUTPUT 
HTTP_out : MESSAGE 
END 
JMPLEMENTATION ADA HTTP processor_out 


END 
OPERATOR Map_server 


SPECIELCALION 
INPUT 
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OUTPUT 
deIiver_map : MAP 
END 
IMPLEMENTATION 
GRAPH 
VERTEX locate_map 


EDGE deliver_map 
locate_map -> 
EXTERNAL 


EDGE request_map 
EXTERNAL -> 
locate_map 

CONTROL CONSTRAINTS 

OPERATOR locate_map 

END 


OPERATOR Msg server 
SPECIFICATION 
INPUT 
feed_msgs : MESSAGE, 
req_template : MESSAGE, 
request_msgs : MESSAGE 
OUTPUT 
respond_msgs : MESSAGE, 
respond_template : MESSAGE 
STATES 
msg_filter : MESSAGE 
INITIALLY 
EMPTY 
STATES 
msg_message_db : MESSAGE 
INITIALLY 
EMPTY 
END 
IMPLEMENTATION 
GPAPH 
VERTEX archive_msgs 


VERTEX msg_handle_query 
VERTEX msg_update_filter 
VERTEX template_database 
EDGE feed_msgs 
EXTERNAL -> 
archive_msgs 
EDGE msg_filter 


msg_update_tilter -> 
msg_handle_query 


* 


EDGE msg_filIter 
msg_update_filter -> 
msg_update_filter 


EDGE insg_ message _dls 
archive_msgs -> 
msg _handle_query 


EDGE msg_message_db 
archive_msgs -> 


archive_msgs 


EDGE req_template 


EXTERNAL -> 
template database 


EDGE request_msgs 
EXTERNAL -> 
msg_update_filter 


EDGE respond_msgs 
msg_handle_query -> 
EXTERNAL 


EDGE respond_template 
tempIate_database -> 
EXTERNAL 

CONTROL CONSTRAINTS 

OPERATOR archive_msgs 


OPERATOR msg_handle_query 
OPERATOR msg_update_filter 


OPERATOR template_database 
END 


OPERATOR Name_server 
SPECIFICATION 
INPUT 
mod_obj_loc : ADMINISTEP, 
req_resource : MESSAGE 
OUTPUT 
resource_phys_loc : MESSAGE 
END 
IMPLEMENTATION 
GRAPH 
VERTEX resolve_resource_loc 


EDGE mod_obj_loc 
resolve_resource_loc -> 
resolve_resource_loc 


EDGE mod_obj_loc 
EXTERNAL -> 
resolve_resource_loc 


EDGE req_resource 
EXTERNAL -> 
resoIve_resource_loc 


EDGE resource_phys_loc 
resolve_resource_loc -> 
EXTERNAT, 

CONTROL CONS'TRAINTS 
OPERATOR resolve_resource_loc 
END 


OPERATOR Print_server 


SPECIFICATION 
INPUT 
print request 2: MESSAGE, 
receive file : MESSAGE 
OUTEUT 


job_spooled_msg : MESSAGE, 
request_file : MESSAGE 
END 
IMPLEMENTATION 
GRAPH 
VERTEX build_file 
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VERTEX check_for_file 
VERTEX spool. file 


EDGE file 
check_for_file -> 
spool_file 


EDGE file_name 
build_file -> 
spool_file 


EDGE job_spooled_msg 
spool_file -> 
EXTERNAL 


EDGE print_request 
EXTERNAL -> 
check for _file 


EDGE receive_file 
EXTERNAL -> 
check_for_file 


EDGE request_file 
check_for_file -> 
EXTERNAL 


EDGE screen_param 
check_for_file -> 
build_file 

DATA STREAM 

File : PATH, 

file_name : PATH, 

screen_param : PARAM 
CONTROL CONSTRAINTS 
OPEPATOR build file 


OPEPATOR check for _file 


CVERPADSR spogl Li fu 
El Ib 


OPEPATOP SAAVIC 
SPECIFICATION 
STATES 
device status : BOOLEAN 
INITIALLY 
FALSE 
STATES 
filter _alerts : ALERT 
INITIALLY 
EMPTY ‘ 
STATES 
filter_data : DB RECORD 
INITIALLY 
EMPTY 
STATES 
filter_maps : MAP 
INITIALLY 
EMPTY 
STATES 
filter_msgs : MESSAGE 
INITIALLY 
EMPTY 


10 


filter_tracks : TRACKS 
INITIALLY 
EMPTY 
STATES 
iss_certificate ; CERTIFICATE 
INITIALLY 
EMPTY 
STATES 
iss_key : KEY 
INITIALLY 
EMPTY 
STATES 
iss_signature : SIGNATUPE 
INITIALLY 
EMPTY 
STATES 
issue_certificate : CERTIFICATE 
INT TIALLY 
EMPTY 
STATES 
issue_key : KEY 
INITIALLY 
EMPTY 
STATES 
issue_signature : SIGNATURE 
INITIALLY 
EMPTY 
STATES 
mod_obj_loc : ADMINISTER 
INGE AG IGY 
EMPTY 
STATES 
mod_rules : ADMINISTEP 
INY TIALLY 
EMPTY 
STATES 
session_contro] : MESSAGE 
INT TIALLY 
EMPTY 
STATES 
session data : MESSAGE 
LH CLALLY ~ 
EMPTY 
STATES 
ad_del_alerts : ALERT 
INITIALLY 
EMPTY 
STATES 
ad_del_data : DB_RECORD 
INITIALLY 
EMPTY” 
STATES 
ad_del_map : MAP 
INI TIALLY 
EMPTY 
STATES 
ad_del_msgs : MESSAGE 
INITIALLY 
EMPTY 
STATES 
ad_del_tracks : TRACKS 
INITIALLY 
EMPTY 
STATES 


print _response : MESSAGE 
INITIALLY 
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STATES 
bits_out : BITS 
INITIALLY 
EMPTY 
STATES 
deliver_map : MAP 
INITIALLY 
EMPTY 
STATES 
respond_valid_tracks : TRACKS 
INITIALLY 
EMPTY 
STATES 
subscribe_tracks ;: TRACKS 
INITIALLY 
EMPTY 
STATES 
subscribe _db_changes : DB_.RECORD 
INITIALLY 
EMPTY 
STATES 
respond_alerts : ALERT 
INITIALLY 
EMPTY 
STATES 
respond_tracks : TRACKS 
INITIALLY 
EMPTY 
STATES 
respond_msgs : MECSAGE 
INITIALLY 
EMPTY 
STATES 
respond_template : MESSAGE 
INITIALLY 
EMPTY 
STATES 
resource_phys_loc : MESSAGE 
INITIALLY 
EMPTY 
STATES 
respond_msg : MESSAGE 
INITIALLY 
EMPTY 
STATES 
job_spooled_msg : MESSAGE 
INITIALLY 
EMPTY 
STATES 
request_file : MESSAGE 
INITIALLY 
EMP Ty 
END 
IMPLEMENTATION 
GRAPH 
VERTEX AD_Sit_inter face 


VERTEX Alerts_server 
VERTEX Comms_server 
VERTEX Correlat_server 
VERTEX Data_manage_server 


VERTEX Device_server 


VERTEX Map_server 
VERTEX Msg_server 
VERTEX Name_server 
VERTEX Print_server 
VERTEX Security_server 
VERTEX TADIL_J : 100 HS 
VERTEX Time_server 
VERTEX Track_server : 500 MS 
VERTEX broker 

VERTEX get_user_cmd 
VERTEX network 


EDGE FTP_msg_in 
Comms_server -> 
broker 


EDGE HTTP_msg_in 
Comms_server -> 
broker 


EDGE SMTP_msg_in 
Comms_Server -> 
broker 


EDGE SNMP_msg_in 
Comms_server -> 
broker 


EDGE UDP_msg_in 
Comms_server -> 
broker 


EDGE ad_del_alerts 
broker -> : 
AD_Sit_interface 


EDGE ad_del_data 
broker -> 
AD_Sit_interface 


EDGE ad_dél_map 
brokér -> 
AD Sit interface 


EDGE ad_del_msgs 
broker -> 
AD Sit_interface 


EDGE ad_del_tracks 
broker -> 
AD_Sit_interface 


EDGE ad_sub_alerts 
AD_Sit_interface -> 


broker 


EDGE ad_sub_data 
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AD_Sit_interface -> 
broker 


EDGE ad_sub_map 
AD_Sit_interface -> 
broker 


EDGE ad_sub_msgs 
AD_Sit_interface -> 
broker 


EDGE ad_sub_tracks 
AD_Sit_interface -> 
broker 


EDSE administer_device 
broker -> 
Device_server 


EDGE bits_in 
network -> 
Comms_server 


EDGE bits_out 
Comms_server -> 
network 


EDGE cs_del_tracks 
broker -> 
Correéiat_server 


EDGE data_out 
get __user_cmd -> 
AD_Sit_interface 


EDGE deliver_map 
Map_server -> 
broker 


EDGE device_status 
Device_server -> 
broker 


EDGE feed_msgs 
broker -> 
Alerts_server 


EDGE feed_msgs 
broker -> 
Msg_server 


EDGE feed_tracks 
TADIL..J -> 
Track_server 


EDGE filter_alerts 
get user. cmd -» 
AD_Sit .interface 


elt ste, Tn Wtleoy aflaall gp 
get user _cnd -> 
AN_Sit_interface 


EDGE filter_maps 
get_user_cmd -> 
AD_Sit_interface 
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EDGE filter_msgs 
get_user_cmd -> 
AD_Sit_interface 


EDGE filter_tracks 
get_user_cmd -> 
AD_Sit_interface 


EDGE iss_certificate 
broker -> 
AD_Sit_interface 


EDGE iss_key 
broker -> 
AD_Sit_interface 


EDGE iss_signature 
broker -> 
AD_Sit_interface 


EDGE issue_certificate 
Security_server -> 
broker 


EDGE issue_key 
Security_server -> 
broker 


EDGE issue_signature 
Security_server -> 
broker 


EDGE job_spooled_msg 
Print_server -> 
broker 


EDGE mod_obj_loc 
get_user_cmd -> 
Name_server 


EDGE mod_rules 
gel wser. cmd -> 
broker 


EDGE new_time 
Time_server -> 
broker 


EDGE print_file 
get _user_cmd -> 
AD Sit sinterface 
EDGE print_reqg 
AD_Sit_interface ~-> 
broker 


EDGE print request 
broker -> 
Pe deel octeor Yaee 


EDGE print response 
broker -> 
AD. Sit_interface 


EDGE receive_file 
broker -> 


Drint enonbrvwor 
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EDGE reg_alerts 
broker -> 
Alerts_server 


EDGE req_certificate 
AD_Sit_interface -> 
broker 


EDGE reg_data 
broker -> 
Data_manage_server 


EDGE reg_key 
AD _Sit_interface -> 
broker 


EDGE req_resource 
broker -> 
Name_server 


EDGE req_secure_session 
get_user_cmd ~> 
AD_Sit_interface 


EDGE req_signature 
AD_Sit_interface -> 
broker 


EDGE req _ template 
broker -> 
Msg_server 


EDGE req_tracks 
broker -> 
Track_server 


FDGE request_certificate 
broker -> 
Security_server 


EDGE request _file 
Print_server -> 
broker 


EDGE request_key 
broker -> 
Security_server 


EDGE request _map 
broker -> 
Map_server 


EDGE request_msgs 
broker -> 
Msg_server 


EDGE request_signature 
broker -> 
Security_server 


EDGE request_tracks 
broker -> 
Correlat_server 


EDGE resource_phys_loc 
Name_server -> 


4 


~~ 


fre 


broker 


EDGE respond_alerts 
Alerts_server -> 
broker 


EDGE respond_db_change 
broker -> 
Correlat_server 


EDGE respond_msg 
Data_manage_server -> 
broker 


EDGE respond_msgs 
Msg_server -> 
broker 


EDGE respond_template 
Msg_server -> 
broker 


EDGE respond_tracks 
Track_server -> 
broker 


EDGE respond_valid_tracks 
Correlat_server -> 
broker 


-EDGE secure_msg_out 
AD_Sit_interface -> 
broker 


EDGE session_control 
broker -> 
Comms _server 


EDGE session_data 
broker -> 
Comms. server 


EDGE subscribe_db_changes 
Correlat_server -> 
broker 


EDGE subscribe_tracks 
Correlat_server -> 
broker 

DATA STREAM 

FTP_msg_iti : MESSAGE, 

HTPP'mSg_in : MESSAGE, 

SMTP_msg_in : MESSAGE, 

SNMP_msg_in : MESSAGE, 

UDP_msg_in : MESSAGE, 

ad_sub_alerts : ALERT, 

ad_sub_data : DB_RECORD, 
ad_sub_map : MAP, 
ad_sub_msgs : MESSAGE, 
ad_sup_tracks +: TRACKS, 
administer_device : DEVICE, 
bits in.) BITS, 
cs_del_tracks : TRACKS, 
data_out : MESSAGE, 
feed_msgs : MESSAGE, 
feed tracks : TRACKS, 
new_time : TIMESTAMP, 





<= 
© 
= 


SAAWC.psdl Wed Jul 23 16:43:22 


print_file : MESSAGE, 

print_req : MESSAGE, 

print_request : MESSAGE, 

receive_file : MESSAGE, 

req_alerts : ALERT, 

req_certificate : CERTIFICATE, 

req_data : DB_RECORD, 

req_key : KEY, 

req_resource : MESSAGE, 

req_secure_session : MESSAGE, 

req_signature : SIGNATURE, 

req _template : MESSAGE, 

reg tracks : TRACKS, 

request_certificate : CERTIFICATE, 

request_key : KEY, 

request _map : MAP, 

request_msgs : MESSAGE, 

request_Signature : SIGNATURE, 

request_tracks : TRACKS, 

respond_db_change : DB_RECORD, 

secure_msg_out : MESSAGE 
CONTROL CONSTRAINTS 

OPERATOR AD_Sit_interface 


OPERATOR Alerts_server 
OPERATOR Comms_server 
OPERATOR Correlat_server 
OPERATOR Data_manage_server 
OPERATOR Devrice_server 
OPERATOR Map_server 
OPERATOR Msg_ser‘ver 
OPERATOR Name_server 
OPERATOR Print_server 
OPERATOR Security_server 


OPERATOR TADIL_J 
PERIOD 1000 MS 


OPERATOR Time_server 
OPERATOR Track_server 
OPERATOR broker 
OPERATOR get_user cind 


OPERATOR net work 
EMD 


OPERATOR SMTP_processor_in 
SPECIFICATION 
PHPUT 
SMTP_in : HESSAGE 
OUTPUT 
SMTP_msg_in : MESSAGE 
END 
IMPLEMENTATION ADA SMTP processor in 


i 


14 


« 


END 


OPERATOR SMTP_processor_out 
SPECIFICATION 
INPUT 
SMTP_msg_out : MESSAGE 
OUTPUT 
SMTP_out : MESSAGE 
END 
IMPLEMENTATION ADA SMTP_processor_out 


END 


OPERATOR SNMP_processor_in 
SPECIFICATION 
INPUT 
SNMP_in : MESSAGE 
OUTPUT 
SNMP_msg_in : MESSAGE 
END 
IMPLEMENTATION ADA SNMP_processor_in 


END 


OPERATOR SNMP_processor_out 
SPECIFICATION 
INPUT 
SNMP_msg_out : MESSAGE 
OUTPUT 
SNHMP_out : MESSAGE 
END 
IMPLEMENTATION ADA SNMP_processor_out 


END 


OPERATOR Security_server 
SPECI ELGAR LION 
INPUT 
request certificate : CERTIFICATE, 
request_key : KEY, 
request signature : SIGNATURE 
OUTPUT , iw 
issue_certificate : CERTIFICATE, 
issue_key : KEY, 
issue_Signature : SIGNATURE 
END 
IMPLEMENTATION 
GRAPH 
VERTEX validate_certificate 


VERTEX validate_key 


-* 
- 


VERTEX validate_signature 


EDGE issue_certifticate 
validate_certificate -> 
EXTERNAL 


EDGE issue_certificate 
validate_certificate -> 
validate cert.ificate 


EDGE issue_key 
validate_key -> 
EXTERNAL 
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validate_key -> 
validate_key 


ENGE issue_signature 
validate_signature -> 
EXTERNAL 


EDGE issue_signature 
validate signature -> 
validate signature 


EDGE request_certificate 
EXTERNAL -> 
validate _certificate 


EDGE request_key 
EXTERNAL -> 
validate _key 


EDGE request_Signature 
EXTERNAL -> 
validate_signature 

CONTROL CONSTRAINTS 
OPERATOR validate_certificate 


OPERATOR validate_key 


OPERATOR validate_signature 
ENR 


OPERATOR TADIL_J 
SPECIFICATION 
OUTPUT 
feed_tracks : TRACKS 
MAXIMUM EXECUTION TIME 100 HS 
ENE 
IMPLEMENTATION ADA TADIL_J 


END 


OPERATOR Time_server 
SPECIFICATION 
OUTPUT 
new_time : TIMESTAMP 
END 
IMPLEMENTATION 
GRAPH 
VERTEX update_time 


EDGE new_time 
update_time -> 
EXTERNAL 

CONTROL CONSTRAINTS 

OPERATOR update_time 

END 


OPERATOR Track_server 
SPECIFICATION 
INPUT 
Feed=tracks =: TRACKS, 
reg tracks : TRACKS 


CUTPUT 
respond_tracks : TRACKS 
STATES 
track_db : TRACKS 
INITIALLY 


BRET, 


STATES 
filter : TRACKS 
INI TIALLY 
EMPTY 
MAXIMUM EXECUTION TIME 500 MS 
END 
IMPLEMENTATION 
GRAPH 
VERTEX handle_query 


VERTEX update_filter 
VERTEX update_tracks 


EDGE feed_tracks 
EXTERNAL -> 
update_tracks 


EDGE filter 
update_filter -> 
handle_query 


EDGE filter 
update_filter -> 
update_filter 


EDGE req_tracks 
EXTERNAL -> 
update_filter 


EDGE respond_tracks 
handle query -> 
EXTERNAL 


ENGE track_db 
update tracks -> 
handle_query 


EDGE track_db 
update_tracks -> 
update tracks 
CONTROL CONSTRAINTS ; 4 
OPERATOR handle_query 


OPERATOR update_filter 


OPERATOR update_tracks 
END 


OPERATOR UDP_processor_in 
SPECIFICATION 
INPUT ~~” 
UDP_in : MESSAGE 
OUTPUT 
UDP_msg_in : MESSAGE 
END 
IMPLEMENTATION ADA UDP_processor_in 


END 


OPERATOR UDP_processor_out 
SPECIFICATION 
INPUT 
UDP_msg_out : MESSAGE 
OUTPUT 
UDP_out : MESSAGE 
END 
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IMPLEMENTATION ADA UDP_processor_out 
END 


OPERATOR add_file 
SPECIFICATION 
INPUT 
file_add_db : DB_RECORD, 
req_add_file : DB_RECORD 
CUTPUT 
file add_db : DB. RECORD 
END 
IMPLEMENTATION ADA add_file 


END 


OPERATOR add_object 
SPECIFICATION 
INPUT 
obj_add_db : DB_RECOPD, 
req _add_obj : DB_RECORD 
OUTPUT 
obj_add_db : DB_RECoRD 
END 
IMPLEMENTATION ADA add_object 


END 


OPEPATOP add_record 
SPECIFICATION 
INPUT 
rec_add_db : PB_PECOPRD, 
req_add_rec : DB_RECORD 
OUTPUT 
rec_add_db : DB_RECOPD 
END 
[IMPLEMENTATION ADA add_record 


END 


OPEPATOR alerts_display_db 
SPECIFICATION 

INPUT 
ad_del_alerts : ALEPT, 
filter_alerts : ALEPT 

OUTPUT 
ad_sub_alerts ALERT, 
filter_alerts : ALERT 


END 
IMPLEMENTATION ADA alerts_display_db 


END 


OPEPATOR alerts_update_filter 
SPECEFIGCAT Tou 
INPUT 
alerts_filter : TRACKS, 
req_alerts : ALERT 
OUTPUT 
alerts_filter : TRACKS 
END 
IMPLEMENTATION ADA alerts_update_ filter 


END 


OPEPATOR archive_msgs 
[SOC CICaA rt ryvweet 
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INPUT 
feed_msgs : MESSAGE, 
msg_message_db : MESSAGE 
CUTPUT 
msg_message_db : MESSAGE 
END 
IMPLEMENTATION ADA archive_msgs 


END 


OPERATOR broker 
SPECIFICATION 
INPUT 
FTP_msg_in : MESSAGE, 
HTTP_msg_in : MESSAGE, 
SMTP_msg_in : MESSAGE, 
SNMP_msg_in : MESSAGE, 
UDP_msg_in : MESSAGE, 
ad_sub_alerts : ALERT, 
ad_sub_data : DB_RECORD, 
ad_sub_map : MAP, 
ad_sub_msgs : MESSAGE, 
ad_sub_tracks : TRACKS, 
deliver_map : MAP, 
device_status : BOOLEAN, 
lssue_certificate : CERTIFICATE, 
issue_key : KEY, 
issue_signature : SIGNATURE, 
job_spooled_msg : MESSAGE, 
mod_rules : ADMINISTER, 
new_time : TIMESTAMP, 
Print._req : MESSAGE, 
req certificate : CERTIFICATE, 
req key : KEY, 
req. signature : SIGNATURE, 
request_file : MESSAGE, 
resource _phys_loc : MESSAGE, 
respond_alerts : ALERT, 
respond_msg : MESSAGE, 
respond. msgs : MESSAGE, 
respond_template : MESSAGE, 
respond tracks : TRACKS, 4 
respond_valid_tracks : TRACKS, 
secure_msg_out .: MESSAGE, 
subscribe_db_ changes : DB_RECORD, 
subscribe_tracks : TRACKS 
OUTES? 
ad_del_alerts : ALERT, 
ad_del_data ;: DB.RECORD, 
ad_del_map : MAP, 
ad_del_msgs : MESSAGE, 
ad.del_tracks : TRACKS, 
administer_device : DEVICE, 
cs,del_tracks : TRACKS, 
teed_msgs : MESSAGE, 
iss_certificate : CERTIFICATE, 
iss_key : KEY, 
iss_signature : SIGNATURE, 
print _request : MESSAGE, 
print._response : MESSAGE, 
receive_file : MESSAGE, 
req alerts : ALERT, 
req.data : DB RECORD, 
req_resource : MESSAGE, 
req_template : MESSAGE, 
req_tracks : TRACKS, 
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request _ key : KEY, 
request_map : MAP, 
request msgs : MESSAGE, 


request_signature : SIGNATURE, 
request_tracks : TRACKS, 
respond_db_change : DB_RECORD, 
session_control : MESSAGE, 
session_data : MESSAGE 
STATES 
client_req : MESSAGE 
INITIALLY 
EMPTY 
STATES 
Srv_response : MESSAGE 
LNGPE ALLY 
EMPTY 
END 
IMPLEMENTATION 
GRAPH 
VERTEX business_rules_manager 


VERTEX client_thread_manager 
VERTEX server_thread_manager 


EDGE. FiPimsglin 
EXTERNAL -> 
server_thread_manager 


EDGE HTTP_msg_in 
EXTERNAL -> 
server_thread manager 


EDGE SMTP _insq_in 
EXTERNAL -> 
server thread manage: 


EDSE SNMP_msg_in 
EXTERNAL -> 
server_thread_manager 


EDGE UDP_msg_in 
EXTERNAL -> 
server _thread_manager 


EDGE ad_del_alerts 
client_thread_manager -> 
EXTERNAL 


EDGE ad_del_data 
client_thread_manager -> 
EXTERNAL 


EDGE ad_del_map | 
client_thread_manager -> 
EXTERNAL 


EDGE ad_del_msgs 
client_thread.manager -> 
RXTRRNAI 


ENGE ad_del_ tracks 
client_thread manager -> 
EXTERNAL 


EDGE ad_sub_alerts 
EXTERNAL ->»> 
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client_thread_manager 


EDGE ad_sub_data 
EXTERNAL -> 
client_thread_manager 


EDGE ad_sub_map 
EXTERNAL -> 
client_thread_manager 


EDGE ad_sub_msgs 
EXTERNAL -> 
client_thread_manager 


EDGE ad_sub_tracks 
EXTERNAL -> 
client_thread_manager 


EDGE administer_device 
server_thread_manager -> 
EXTERNAL 


EDGE client_reg 
client_thread_manager -> 
client_thread_manager 


EDGE client_req 
client_thread_manager -> 
business_rules_manager 


EDGE cs_del_tracks 
server_thread_manager -> 
EXTERNAL 


EDGE deliver map 
EXTERNAL «> 
server_thread_manager 


EDGE device_status 
EXTERNAL -> 
server_thread_manager 


EDGE feed_msgs 
server_thread_manager -> 
EXTERNAL 


EDGE iss_certificate 
client_thread_manager -> 
EXTERNAL 


EDGE iss ‘key 
elient_thread_manager -> 
EX‘'ERNAL 


EDGE iss_signature 
client_thread_manager -> 
EXTERNAL 


ENGE issue certificate 
XEERNAL , 
server Phread matdaget 


EDGE issue_key 
EXTERNAL -> 


server_thread_manager 


EDGE issue_signature 
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EXTERNAL -> 
server_thread_manager 


EDGE job_spooled_msg 
EXTERNAL -> 
server_thread_manager 


EDGE mod_rules 
business_rules_manager 
business_rules_manager 


EDGE mod_rules 
EXTERNAL -> 
business_rules_manager 


EDGE new_time 
EXTERNAL -> 
server_tChread_manager 


EDGE print_reg 
EXTERNAL -> 
client_thread_manager 


EDGE print_request 
server_thread_manager 
EXTERNAL 


EDGE print_response 
Client_thread_manager 
EXTERNAL 


EDGE receive_file 
server_thread_manager 
EXTERNAL 


EDGE req_alerts 
server_thread_manager 
EXTERNAL 


EDGE req certificate 
EXTERNAL -> 
client_thread manager 


EDGE req_data 
server_thread_manager 
EXTERNAL 


EDGE reg_key 
EXTERNAL -> 
client_thread_manager 


EDGE req_resource 
server_thread_manager 
EXTERNAL 


EDGE req_signature 
EXTERNAL -> 
Client tChredd metrearcyert 


EDGE reg. template 
server_thread_manager 
EXTERNAL 


EDGE req_tracks 
server_thread_manager 
EXTERNAL 
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EDGE request_certificate 
server_thread_manager -> 
EXTERNAL 


EDGE request_file 
EXTERNAL -> 
server_thread_manager 


EDGE request_key 
server _thread_manager -> 
EXTERNAL 


EDGE request_map 
server_thread_manager -> 
EXTERNAL 


EDGE request_msgs 
server_thread_manager -> 
EXTERNAL 


EDGE request_signature 
server_thread_manager -> 
EXTERNAL 


EDGE request_tracks 
server_thread_manager -> 
EXTERNAL 


EDGE resource_phys_loc 
EXTERNAL -> 
server_thread_manager 


EDGE respond_alerts 
EXTERNAL -> 


server_thread_manager 


EDGE respond_db change 


server_thread_manager -> 


EXTERNAL, 


EDSE respond_msg 
EXTEPNAL -> 
server_thread_manager 


EDGE respond_msgs 


EXTERNAL -> 
server thread_manager 


EDGE respond_template 
EXTERNAL ~> 
serversthread_manager 


or dell 
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EDGE respond_tracks 
EXTERNAL -> 
server_thread_manager 


EDGE respond valid tracks 
EX'TERNAL. 
server_thread. manager 


EDGE secure_msg_out 
EXTERNAL -> 
client thread manager 


EDGE session_control 
server_thread_manager -> 
EXTERNAL 
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EDGE session_data 
server_thread _manager -> 
EXTERNAL 


EDGE srv_response 
server_thread_manager -> 
server_thread_manager 


EDGE srv_response 
server_thread_manager -> 
business_rules_manager 


EDGE subscribe_db changes 
EXTERNAL -> 
server_thread_manager 


EDGE subscribe_tracks 
EXTERNAL -> 
server_thread_manager 


EDGE valid_client_reg 
business_rules_manager -> 
server_thread_manager 


EDGE valid_srv_response 
business_rules_manager -> 
client_thread_manager 


DATA STREAM 
valid_client_regq : MESSAGE, 
vValid_srv_response : MESSAGE 


CONTROL CONSTRAINTS 
OPEPATOR business_rules_inanager 


OPERATOR client _thread_manager 


OPEPATOPR server_thread_manager 
ENC 


OPERATGP build_file 
SPECIFICATION 
INPUT 
screen_param : PAPAM 
OUTPUT 
file_name : PATH 
END 
IMPLEMENTATION ADA build_file 


END 


OPERATOR business_rules_manager 


SPECIFICATION 
INPUT 
client_req : MESSAGE., 
mod_rules : ADMINISTER, 
srv_response : MESSAGE 
OUTPUT 


mod_rules : ADMINISTER, 
valid_client._req : MESSAGE, 
valid_srv_response : HESSAGE 

END 

IMPLEMENTATION ADA business_ruies_manager 


END 


OPERATOR check.tor_file 
SPECIFICATION 
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INPUT 
print_request : MESSAGE, 
receive _file : MESSAGE 
OUTPUT 
file : PATH, 
request_file : MESSAGE, 
screen_param : PARAM 


END 
IMPLEMENTATION ADA check_for_file 


END 


OPERATOR client_thread_manager 
SPECIFICATION 
INPUT 
ad_sub_alerts : ALERT, 
ad_sub_data : DB_RECORD, 
ad_sub_map : MAP, 
ad_sub_msgs : MESSAGE, 
ad_sub_tracks : TRACKS, 
client_req : MESSAGE, 
print_req : MESSAGE, 
reqecertificate = "GERTIFICATE, 
req_key : KEY, 
regq_signature : SIGNATURE, 
secure_msg_out : MESSAGE, 
valid_srv_response : MESSAGE 
OUTPUT 

ad del alerts : ALERT, 
ad_del_data : DB_RECORD, 
ad_del_map : MAP, 
ad_del_msgs : MESSAGE, 
ad_del_tracks : TRACKS, 
client_req : MESSAGE, 
iss_certificate : CERTIFICATE, 
iseukey—: KEY, 
iss_signature : SIGNATURE, 
print_response : MESSAGE 

END 

IMPLEMENTATION ADA client_thread_manager 


END : 


OPERATOR correl_handle_query 
SPECIFICATION 
INPUT 
correl_filter : TRACKS, 
valid_tracks : TRACKS 
OUTPUT 
respond_valid_tracks : TRACKS 
END ¢ 
IMPLEMENTATION ADA correl_handle gae:; 


END 


OPERATOR correl_updiate_ frites: 
SPECIFICATION 
INPUT 
coupe) filter : TRAcCKs, 
request_tracks : TRACKS 
OUTPUT 
Gonrell filter : TRACKS, 
subscribe_db_changes : DB_RECORD, 
subscribe_tracks : TRACKS 
END 
IMPLEMENTATION ADA corre] _update_filter 
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END 
OPERATOR correl_update_ tracks 
SPECIFICATION 
INPUT 


Correll track_db : TRACKS, 
cs_del_tracks : TRACKS 
OUTPUT 
correl_track_db : TRACKS 
END 
IMPLEMENTATION ADA correl_update_tracks 


END 


OPERATOR correlate_tracks 
SPECIFICATION 
INPUT 
correl_record_db : DB_RECOPD, 
correl_track_db : TRACKS 
OUTPUT 
valid_tracks : TRACKS 
END 
IMPLEMENTATION ADA correlate_tracks 


END 


OPEPATOR data_display_db 
SPECIFICATION 
INPUT 
ad_del_data : DB_RECORD, 
filter_data : DB_RECORD 
OUTPUT 
ad_sub_data : DB_RECOPD, 
filter_data : DB_RECOPD 
END 
IMPLEMENTATION ADA data_display_.db 


END 


OPEPATOP. delete_file 
SPECIFICATION 
INPUT 
fFile_del_db : DB_RECCRD, 
req_del_file : DB_PECORD 
OUTPUT 
file_del_db : DB_PECOPD 
END 
IMPLEMENTATION ADA delete_file 


END 


OPERATOR delete_object 
SPECIFICATION 
INPUT 
obj_del_db : DB_RECORD, 
req_del_obj : DB_RECORD 
OUTPUT 
obj_del_db : DB_RECORD 
END 
IMPLEMENTATION ADA delete_object 


END 


OPERATOR delete_record 
SPECIFICATION 
INPUT 
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req_del_rec : DB_RECORD 
OUTPUT 
rec_del_db : DB_RECORD 


END 
IMPLEMENTATION ADA delete_record 


END 


OPERATOR format_response 
SPECIFICATION 

INPUT 
file_add_db : DB_RECORD, 
file_del_db : DB_RECORD, 
file_mod_db : DB_RECORD, 
file_retr_msg : DB_RECOPD, 
obj_add_db : DB_RECORD, 
obj_del_db : DB_RECORD, 
obj_mod_db : DB_RECORD, 
obj_retr_msg : DB_RECORD, 
rec_add_db : DB_RECORD, 
rec_del_db : DB_RECORD, 
rec_mod_db : DB_RECORD, 
rec_retr_msg : DB_PECORD 

OUTPUT 
respond_msg : MESSAGE 


END 
IMPLEMENTATION ADA format_response 


END 


OPERATOR get_user_cmd 
SPECIFICATION 
OUTPUT 
data_out : MESSAGE, 
filter alerts : ALERT, 
filter _data DB_PECORD, 
filter_maps : MAP, 
filter_msgs : MESSAGE, 
filter_tracks : TRACKS, 
mod_obj_loc : ADMINISTER, 
mod_rules : ADMINISTER, 
print fide: : MESSAGE, bs 
req_secure_session : MESSAGE 
END 
FMPLEMENTATION ADA get_user_cmd 


2 


END 


OPERATOR handle_query 
SPECIFICATION 
INPUT ¢’ 
Sailiter : TRACKS, 
track_db : TRACKS 
OUTPUT 
respond_tracks : TRACKS 
END 
IMPLEMENTATION ADA handle_query 


END 


PERATOR locate map 
SPECTERCATICH 
INPUT 
request map : MAP 
OUTPUT 
deliver_map : MAF 


kal 





IMPLEMENTATION ADA locate_map 
END 


OPERATOR map_display_db 
SPECIFICATION 
INPUT 
ad_del_map : MAP, 
filter_maps : MAP 


OUTPUT 
ad_sub_map : MAP, 
filter_maps : MAP 


END : 
IMPLEMENTATION ADA map_display_db 


END 


OPERATOR mod_file 
SPECIFICATION 
INPUT 
file_mod_db : DB_RECORD, 
req_mod_file : DB_RECORD 
GUT PUT 
file_mod_db : DB_RECORD 
END 
IMPLEMENTATION ADA mod_file 


END 


OPEPATOR mod_object 
SPECIFICATION 
INPUT 
obj_mod_db : DB_PECORD, 
req_mod_obj} : DB_RECORD 
OUTPUT 
Sbj_mod_dh : DB_RECORD 
END 
IMPLEMENTATION ALA mod_object 


END 


OPERATOR mod_record 
SPECIFICATION 
INPUT 
rec_mod_db : DB RECORD, 
req_mod_rec : DB_PECORD 
OUTPUT 
rec_mod_dh : DB_RECORD 
END 
IMPLEMENTATION ADA mod_record 


END 


OPERATOR mount_device 
SPECIFICATION 
INPUT 
administer_device : DEVICE, 
device_status : BOOLEAN 
OUTPUT 
device status : BCOLEAN 
END 
IMPLEMENTATION ADA mount_device 


END 


OPERATOR msg_display_db 
SPECIFICATION 


wea vul 45 


pg id | 


I OO = 


INPUT 
ad_del_msgs : MESSAGE, 
filter_msgs : MESSAGE 
OUTPUT 
ad_sub_msgs : MESSAGE, 


filter_msgs : MESSAGE 
END 
IMPLEMENTATION ADA msg_display_db 


END 


OPERATOR msg_handle_query 
SPECIFICATION 
INPUT 
msg_filter : MESSAGE, 
msg_message_db : MESSAGE 
OUTPUT 
respond_msgs : MESSAGE 
END 
IMPLEMENTATION ADA msg_handle_query 


END 


OPERATOR msg_out_manager 


SPECI FICATION 
INPUT 
data_out : MESSAGE 
OUTPUT 
msg_out : MESSAGE 
END 


IMPLEMENTATION ADA msg_out_manager 
END 


OPERATOR msg_update_filter 
SPECIE ICGATION 
INPUT 
msg_filter : MESSAGE, 
request_msgs : MESSAGE 
OUTPUT 
msg_filter : MESSAGE 
END : ‘ 
IMPLEMENTATION ADA msg_update_filter 


END 


OPERATOR network 
SPECIFICATION 
INPUT 
bits_out : BITS 
OUTPUT sy 
bits“in : BITS 
END 
IMPLEMENTATION ADA network 


END 


OPERATOR network_interface_in 
SPECIFICATION 
INPUT 
bits_in : BITS 
OUTPUT 
data_str_in : MESSAGE 
END 
[IMPLEMENTATION ADA network_interface_in 


END 
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OPERATOR network_interface_out 
SPECIFICATION 
INPUT 
FTP out : MESSAGE, 
HTTP_out : MESSAGE, 
SMTP_out : MESSAGE, 
SNMP_Lout : MESSAGE, 
UDP_out : MESSAGE 
OUTPUT 
bits_out : BITS 
END 
IMPLEMENTATION ADA network_interface_out 


END 


OPERATOR print_manager 
SPECIFICATION 
INPUT 
print_file : MESSAGE, 
print_response : MESSAGE 
OUTPUT 
Print_req : MESSAGE 
END 
IMPLEMENTATION ADA print_manager 


END 


OPERATOP resolve_alerts 
SPECIFICATION 
INPUT 
alerts_filter : TRACKS, 
alerts_message_db : DB_RECOPD 
OUTPUT 
respond alerts : ALERT 
Et 
IMPLEMENTATION ADA resolve_alerts 


END 


OPERATOR resolve_data_type 
SPECIE RCATION 
INPUT 
reg_data : DB_RECORD 
OUTPUT 
reg_data_type : DB_RECORPD 
END 
IMPLEMENTATION ADA resolve_data_type 


END 


OPERATOR resolve_request_type 
SPECIFICATION 

INPUT 
req_data_type : DB_RECORD 

OUTPUT 
req_add_file : DB_RECORD, 
req_add_obj : DB_RECORD, 
req_add_rec : DB_RECORD, 
reg.del_file : DB_RECORD, 
reg_del_obj : DB_RECORD, 
req_del_rec : DB_PECORD, 
req_mod_file : DB_RECORD, 
reg_mod_obj : DB_RECORD, 
req_mod_rec : DB_RECORD, 
reg_retr_file : DB_RECORD, 
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req Tecr rec. : DB_RECORD 


END 
IMPLEMENTATION ADA resolve_request_type 


END 


OPERATOR resolve_resource_loc 
SPECIFICATION 
INPUT 
mod_obj_loc : ADMINISTER, 
req_resource : MESSAGE 


OUTPUT 
mod_obj_loc : ADMINISTER, 
resource_phys_loc : MESSAGE 


END 
IMPLEMENTATION ADA resolve_resource_loc 


END 


OPERATOR retrieve_file 
SPECIFICATION 
INPUT 
req_retr_file : DB_RECORD 
OUTPUT 
file_retr_msg : DB_RECORD 
END 
IMPLEMENTATION ADA retrieve_file 


END 
OPERATOR retrieve_object 
SPECIFICATION 
INPUT 
req retr_ obj} : DB_RECORN 
HUTPUTP 


obj retr msg : DB_RECORD 
Etib 
IMPLEMENTATION ADA retrieve_object 


END 
OPERATOR retrieve record ‘ 
SPECIEFIVA'PION 
INPUT 
req_retr_rec : DB_RECORD 
OUTPUT 
rec _retr_msg : DB_RECORD 
END 


IMPLEMENTATION ADA retrieve_record 


END s' 


OPERATOR security _manager 
SPECIFICATION 

INPUT 
iss_certificate : CERTIFICATE, 
iss_key : KEY, 
iss_signature : SIGNATURE, 
msg_out : MESSAGE, 
req_secure_session : MESSAGE 

OUTPUT 
iss_certificate : CERTIFICATE, 
iss_key : KEY, 
1ss_Signature : SIGNATURE, 
req_certificate : CERTIFICATE, 
req_key : KEY, 


lis 


secure_msg_out : MESSAGE 
END 
IMPLEMENTATION ADA security manager 


END 


OPERATOR server_thread_manager 
SPECIFICATION 
INPUT 
FTP_msg_in : WESSAGE, 
HTTP_msg_in : MESSAGE, 
SMTP_msg_in : MESSAGE, 
SNMP_msg_in : MESSAGE, 
UDP_msg_in : MESSAGE, 
deliver_map : MAP, 
device_status : BOOLEAN, 
issue_certificate : CERTIFICATE, 
issue_key : KEY, 
issue_signature : SIGNATURE, 
job_spooled_msg : MESSAGE, 
new_time : TIMESTAMP, 
request_file : MESSAGE, 
resource_phys_loc : MESSAGE, 
respond_alerts : ALERT, 
respond_msg : MESSAGE, 
respond_msgs : MESSAGE, 
respond_template : MESSAGE, 
respond_tracks : TRACKS, 
respond_valid_tracks : TRACKS, 
srv_response : MESSAGE, 
subscribe_db_changes : DB_RECORD, 
subscribe_tracks : TRACKS, 
valid_client_req : MESSAGE 
OUTPUT 

administer_device : DEVICE, 
cs_del_tracks : TRACKS, 


feed_msgs : MESSAGE, 
print_request : MESSAGE, 
receive_file : MESSAGE, 


req_alerts : ALERT, 
req_data : DB_RECORD, 
reg_resource : MESSAGE, 
req_template : MESSAGE, 
req_tracks : TRACKS, 
request_certificate : CERTIFICATE, 
request_key : KEY, 
request_map : MAF, 
request_msgs : MESSAGE, 
request_signature : SIGNATURE, 
request_tracks : TRACKS, 
respond_db_change : DB_RECORD, 
session_control : MESSAGE, 
session_data : MESSAGE, 
srv_response : MESSAGE 

END 

IMPLEMENTATION ADA server_thread_manager 


END 


OPERATOR session_manager 


SPECIFICATION 
INPUT 
data_str_in : MESSAGE, 
session_.control : MESSAGE, 
sessSion_data : MESSAGE 
OUTPUT 


FTP_in : MESSAGE, 





FTP_msg_out : MESSAGE, 
HTTP_in : MESSAGE, 
HTTP _msg_out : MESSAGE, 
SMTP_in : MESSAGE, 
SMTP_msg_out : MESSAGE, 
SNMP_in : MESSAGE, 
SNMP_msg_out : MESSAGE, 
UDP_in : MESSAGE, 
UDP_msg_out : MESSAGE, 
session_control : MESSAGE 
END 
IMPLEMENTATION ADA session_manager 


END 


OPERATOR spool. file 
SPECIFICATION 
INPUT 
file : PATH, 
file name : PATH 
OUTPUT 
job_spooled_msg : MESSAGE 
END 
IMPLEMENTATION ADA spool_file 


END 


OPERATOR template_database 
SPECIFICATION 
INPUT 
req_template : MESSAGE 
OUTPUT 
respond_template : MESSAGE 
END 


IMPLEMENTATION ADA template_database 


END 


OPERATOR track _displa\_db 


SPECIFICATION 
INPUT 
ad_del_tracks : TRACKS, . 
filter_tracks : TRACKS 
OUTPUT 


ad_sub_tracks : TRACKS, 
filter_tracks : TRACKS 


END 
IMPLEWENTATION ADA track_display_.db 


END 
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OPERATOR Update_filter 
SPECIFICATION 
TNPUT 
filter : TRACKS, 
regq_tracks : TRACKS 
OUTPUT 
filter : TRACKS 
END 
IMPLEMENTATION ADA update_filter 


END 


OPERATOR update_msgs 
SPECIFICATION 
INPUT 
alerts_message_db : DB_PECORD, 
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tead_msgre : MESSAGE 
OUTPUT 
alerts message db + DB_RECORD 
END 
IMPLEMENTATION ADA update jnege 


END 


OPERATOR update tactical db 
SPECIFICATION 
[NPUT 
correl_record_db : DB RECORD, 
respond_db changqa +: DB RECORD 
OUTPUT 
corre] record db 1: DB_RECORD 
END 
IMPLEMENTATION ADA update tactical_db 


END 


OPERATOR tupdate tima 
SPECIFICATION 
OUTPUT 
new time +: TIMESTAMP 
END 
IMPLEMENTATION ADA update time 


ND 


OPERATOR update _t racks 
SPECTFICATIC 
INPUT 
feed tracks : TRACKS, 
track dbo: TRACKS 
PPP 
t Meek ocliy oy “TRAC Kas 
CNL 
TMPLEMLNTATION ADA update tracks 


RIB 


OCPEPATOR valldata@ cortiftdecatea 
SPECT FICATION 
INPUT 
lasua certificate + CERTIFICATE, 
raquest certificate ; CERTIFICATE 
OUTPUT 
Lesum cartifilcate :; CERTIFICATE 
END 
IMPLEMENTATION ADA validate certificate 


KMD 
OPERATOR validate key ' 
SPECT FICATION 
INPUT 
banue key +: KEY, 
roquernt key : FRY 
OUTPUT 
Latiiue key + FRY 
Bit 


IMPLEMENTATION ADA validate key 
FttD 


VEKATOR validate miquature 
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INPUT 
{esue_signature : SIGNATURE, 
requeut_signaturea 1: SIGNATURE 
OUTPUT 
{asue_ signature : SIGNATURE 
IIND 
IMPLEMENTATION ADA validate _eigqnatura 


END 
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package SAAWC_EXCEPTIONS is 

-- PSDL exception type declaration 

type PSDL_EXCEPTION is (UNDECLAPED_ADA_EXCEPTION) ; 
end SAAWC_EXCEPTIONS; 


Package SAAWC_INSTANTIATICNS is 
-- Ada Generic package instantiations 


end SAAWC_INSTANTIATIONS; 


with PSDL_TIMERS; 
package SAAWC_TIMERS is 

-- Timer instantiations 
end SAAWC_TIMERS; 


-- with/use, clauses for atomic type packages 

with ADMINISTER_PKG; use ADMINISTER_PKG; 

with ALERT_PKG; use ALERT_PKG; 

with BITS_PKG; use BITS_PKG; 

with CERTIFICATE_PKG; use CERTIFICATE_PKG; 

with DB_RECORD_PKG; use DB_RECORD_PKG; 

with DEVICE_PKG; use DEVICE_PKG; 

with KEY_PKG; use KEY_PKG; 

with MAP_PKG; use MAP_PKG; 

with MESSAGE_PKG; use MESSAGE_PKG; 

with PARAM_PKG; use PARAM_PKG; 

with PATH_PKG; use PATH_PKG; 

with SIGNATURE_PKG; use SIGNATURE_PKG; 

with TIMESTAMP_PKG; use TIMESTAMP_PKG; 

with TRACKS_PKG; use TRACKS_PKG; 

-- with/use clauses for generated packages. 

with SAAWC_EXCEPTIONS; use SAAWC_EXCEPTIONS; 

with SAAWC_INSTANTIATIONS; use SAAWC_INSTANTIATIONS ; 

-- with/use Clauses for CAPS library packages. 
with PSDL_STREAMS; use PSDL_ STREAMS; 

package SAAWC_STPEAMS is 

- Local stream instantiations 


package DS_FTP_MSG_IN_SERVER_THREAD_MANAGER is new 
PSDL_STREAMS. SAMPLED_BUFFER (MESSAGE) ; 


package DS_HTTP_MSG_IN_SERVER_THREAD_MANAGER is new 
PSDL_STREAMS . SAMPLED_BUFFER (MESSAGE) ; 


package DS_SMTP_MSG_IN_SERVER_THREAD_MANAGER is new 
PSDL_STREAMS . SAMPLED_BUFFER (MESSAGE) ; 


package DS_SNMP_MSG_IN_SERVER_THREAD_MANAGER is new 
PSDL_STREAMS . SAMPLED_ BUFFER (MESSAGE) ; 


package DS_UDP_MSG_IN_SERVER_THREAD_MANAGER is new 
PSDL_STREAMS . SAMPLED_BUFFER (MESSAGE) ; 


package DS_AD_SUB_ALERTS_CLIENT_THREAD_MANAGER is new 
PSDL_STREAMS . SAMPLED_BUFFER (ALERT) ; 


package DS_AD_SUB_DATA_CLIENT_THREAD_MANAGER is new 
PSDL_STREAMS .SAMPLED_BUFFER (DB_RECORD) ; 


package DS_AD_SUB_MAP_CLIENT_THREAD_MANAGER is new 
PSDL_STREAMS . SAMPLED_BUFFER (MAP) ; 


package DS_AD_SUB_MSGS_CLIENT_THREAD_MANAGER is new 
PSDL_STREAMS. SAMPLED_ BUFFER (MESSAGE) ; 


package DS_AD_SUB_TRACKS_CLIENT_THREAD_MANAGER is new 
PSDL_STREAMS . SAMPLED_BUFFER (TRACKS) ; 


— 
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package DS_ADMINISTER_DEVICE_MCUNT_DEVICE is new 
PSDL_STPEAMS . SAMPLED_ BUFFER. (DEVICE} ; 


package DS_BITS_IN_NETWORK_INTEPRFACE_IN is new 
PSDL_STREAMS . SAMPLED_BUFFER. (BITS) ; 


package DS_CS_DEL_TRACK.S_CCRREL_UPDATE_TRACKS is new 
PSDL_STREAMS.SAMPLED_BUFFER (TRACKS) ; 


package DS_DATA_OUT_MSG_OUT_MANAGER is new 
PSDL_STREAMS . SAMPLED_BUFFER (MESSAGE) ; 


package DS_FEED_MSGS ARCHIVE_MSGS is new 
PSDL_STREAMS . SAMPLED_BUFFEP. (MESSAGE) ; 


package DS_FEED_MSGS_UPDATE_MSGS is new 
PSDL_STREAMS. SAMPLED_BUFFER (MESSAGE) ; 


package DS_FEED_TRACKS_UPDATE_TRACKS is new 
PSDL_STREAMS . SAMPLED_BUFFEPR. (TRACKS) ; 


package DS_NEW_TIME_SERVER_THREAD_MANAGER is new 
PSDL_STREAMS . SAMPLED_BUFFER (TIMESTAMP) ; 


package DS_PRINT_FILE_PRINT_MANAGER is new 
PSDL_STREAMS . SAMPLED_BUFFER (MESSAGE) ; 


package DS_PRINT_REQ_CLIENT_THREAD_MANAGER is new 
PSDL_STREAMS . SAMPLED_BUFFER (MESSAGE) ; 


package DS_PRINT_REQUEST_CHECK_FOR_FILE is new 
PSDL_STREAMS. SAMPLED_BUFFER (MESSAGE) ; 


package DS_RECEIVE_FILE_CHECK_FOR_FILE is new 
PSDL_STREAMS .SAMPLED_BUFFER (MESSAGE) ; 


package DS_REQ_ALERTS_ALERTS_UPDATE_FILTER is new 
PSDL_STREAMS. SAMPLED_BUFFER (ALERT) ; 


package DS_REQ_CERTIFICATE_CLIENT_THREAD_MANAGER is new 
PSDL_STREAMS .SAMPLED_BUFFER (CERTIFICATE) ; 


package DS_REQ_DATA_RESOLVE_DATA_TYPE is new 
PSDL_STREAMS . SAMPLED_BUFFER (DB_RECORD) ; 


package DS_REQ_KEY_CLIENT_THREAD_MANAGER is new 
PSDL_STREAMS . SAMPLED_BUFFER (KEY) ; 


package DS_REQ_RESOURCE_RESOLVE_RESOURCE_LOC is new 
PSDL_STREAMS.SAMPLED_BUFFER (MESSAGE) ; 


package DS_REQ_SECURE_SESSION_SECURITY_MANAGER is new 
PSDL_STREAMS.SAMPLED_BUFFER (MESSAGE) ; 


package DS_REQ_SIGNATURE_CLIENT_THREAD_MANAGER is new 
PSDL_STREAMS . SAMPLED_BUFFER (SIGNATURE) ; 


package DS_REQ_TEMPLATE_TEMPLATE_DATABASE is new 
PSDL_STREAMS . SAMPLED_BUFFER (MESSAGE) ; 


package DS_REQ_TRACKS_UPDATE_FILTER is new 
PSDL_STREAMS . SAMPLED_BUFFER (TRACKS) ; 


package DS_REQUEST_CERTIFICATE_VALIDATE_CERTIFICATE is new 
PSDL_STREAMS . SAMPLED_BUFFER (CERTIFICATE) ; 
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package DS_REQUEST_KEY_VYALIDATE_KEY is new 
PSDL_STREAMS . SAMPLED_BUFFER (KEY) ; 


package DS_REGUEST_MAP_LOCATE_MAP is new 
PSDL_STREAMS . SAMPLED_BUFFER (MAP) ; 


package DS_REQUEST_MSGS_MSG_UPDATE_FILTER is new 
PSDL_STREAMS.SAMPLED_BUFFEPR. (MESSAGE) ; 


package DS_REQUEST_SIGNATURE_VALIDATE_SIGNATURE is new 
PSDL_STREAMS . SAMPLED BUFFER (SIGNATURE) ; 


package DS_REQUEST_TRACKS_CORREL_UPDATE_FILTER is new 
PSDL_STREAMS . SAMPLED_BUFFER (TRACKS) ; 


package DS_RESPOND_DB_CHANGE_UPDATE_TACTICAL_DB is new 
PSDL_STREAMS.SAMPLED_BUFFER (DB_RECORD) ; 


package DS_SECURE_MSG_OUT_CLIENT_THREAD_MANAGER is new 
PSDL_STREAMS . SAMPLED_BUFFER (MESSAGE) ; 


package DS_MSG_OUT_SECURITY_MANAGER is new 
PSDL_STREAMS . SAMPLED_BUFFER (MESSAGE) ; 


package DS_FTP_IN_FTP_PROCESSOR_IN is new 
PSDL_STREAMS . SAMPLED_BUFFER (MESSAGE) ; 


package DS_FTP_MSG_OUT_FTP_PROCESSOR_OUT is new 
PSDL_STREAMS ..SAMPLED_BUFFER (MESSAGE) ; 


package DS_FTP_OUT_NETWORK_INTERFACE_OUT is new 
PSDL_STREAMS. SAMPLED_BUFFER (MESSAGE) ; 


Package DS_HTTP_IN_HTTP_PROCESSOR_IN is new 
PSDL_STREAMS . SAMPLED_BUFFER (MESSAGE) ; 


package DS_HTTP_MSG_OUT_HTTP_PROCESSOR_OUT is new 
PSDL_STREAMS . SAMPLED_BUFFER (MESSAGE) ; 


package DS_HTTP_OUT_NETWORK_INTERFACE_OUT is new 
PSDL_STREAMS.SAMPLED_BUFFER (MESSAGE) ; 


package DS_SMTP_IN_SMTP_PROCESSOR_IN is new 
PSDL_STREAMS . SAMPLED_BUFFER (MESSAGE) ; 


package DS_SMTP_MSG_OUT_SMTP_PROCESSOR_OUT is new 
PSDL_STREAMS . SAMPLED_BUFFER (MESSAGE) ; 


package DS_SMTP_OUT_NETWORK_INTERFACE_OUT is new 
PSDL_STREAMS . SAMPLED_ BUFFER (MESSAGE) ; 


package DS_SNMP_IN_SNMP_PROCESSOR_IN is new 
PSDL_STREAMS .. SAMPLED_BUFFER (MESSAGE) ; 


package DS_SNMP_MSG_OUT_SNMP_PROCESSOR_OUT is new 
PSDL_STREAMS . SAMPLED_BUFFER (MESSAGE} ; 


package DS_SNMP_OUT_NETWORK_INTERFACE_OUT is new 
PSDL_STREAMS . SAMPLED_BUFFER (MESSAGE) ; 


package DS_UDP_IN_UDP_PROCESSOR_IN is new 
PSDL_STREAMS .SAMPLED_BUFFER (MESSAGE) ; 


package DS_UDP_MSG_OUT_UDP_PROCESSOR_OUT is new 
PSDL_STREAMS .SAMPLED BUFFER (MESSAGE) ; 
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PSDL_STPEAMS . SAMPLED_BUFFER (MESSAGE) ; 


package DS_DATA_STR_IN_SESSICN_MANAGEP is new 
PSDL_STREAMS . SAMPLED_BUFFER (MESSAGE: ; 


package DS_VALID_TRACKS_CORREL_HANDLE_QUERY is new 
PSDL_STREAMS .SAMPLED_BUFFER (TRACKS) ; 


package DS_FILE_RETR_MSG_FORMAT_PRESPONSE is new 
PSDL_STREAMS.SAMPLED_BUFFER (DB_RECORD) ; 


package DS_OBJ_RETR_MSG_FORMAT_RESPONSE is new 
PSDL_STREAMS .. SAMPLED_BUFFER (DB_RECORD}) ; 


package DS_REC_RETR_MSG FORMAT_PESPONSE is new 
PSDL_STREAMS.SAMPLED_BUFFER (DB_RECORD) ; 


package DS_REQ ADD_FILE_ADD_FILE is new 
PSDL_STREAMS .SAMPLED_BUFFER (DB_RECORD) ; 


package DS_REQ_ADD_OBJ_ADD_OBJECT is new 
PSDL_STREAMS .SAMPLED_BUFFER (DB_RECORD) ; 


package DS_REQ_ ADD_REC_ADD_RECORD is new 
PSDL_STREAMS .SAMPLED_BUFFER (DB_RECORD} ; 


package DS_REQ_DATA_TYPE_RESOLVE_REQUEST_TYPE is new 
PSDL_STREAMS . SAMPLED_BUFFER (DB_RECORD) ; 


package DS_REQ_DEL_FILE_DELETE_FILE is new 
PSDL_STREAMS.SAMPLED_BUFFER (DB_RECORD) ; 


package DS_REQO_DEL_OBJ_DELETE_OBJECT is new 
PSDL_STREAMS.SAMPLED_BUFFER (DB_RECORD) ; 


package DS_REQ_DEL_REC_DELETE_RECORD is new 
PSDL_STREAMS . SAMPLED_BUFFER (DB_RECORD) ; 


package DS_REQ_MOD_FILE_MOD FILE is new 
PSDL_STREAMS . SAMPLED_BUFFER (DB_RECORD) ; 


package DS_REQ_MOD_OBJ_MOD_OBJECT is new 
PSDL_STREAMS .SAMPLED_BUFFER {DB_RECORD) ; 


package DS_REQ_MOD_REC_MOD_RECORD is new 
PSDL_STREAMS . SAMPLED_BUFFER (DB_RECORD) ; 


package DS_REQ_RETR_FILE_RETRIEVE_FILE is new 
PSDL_STREAMS ..SAMPLED_BUFFER (DB_RECORD) ; 


package DS_REQ_RETR_OBJ_RETRIEVE_OBJECT is new 
PSDL_STREAMS . SAMPLED_BUFFER (DB_RECORD) ; 


package DS_REQ_RETR_REC_RETRIEVE_RECORD is new 
PSDL_STREAMS. SAMPLED_BUFFER (DB_RECORD) ; 


package DS_FILE_SPOOL_FILE is new 
PSDL_STREAMS .SAMPLED_BUFFER (PATH) ; 


package DS_FILE_NAME_SPOOL_FILE is new 
PSDL_STREAMS . SAMPLED_BUFFER ( PATH) ; 


package DS_SCREEN_PARAM_BUILD_FILE is new 
PSDL_STREAMS.SAMPLED_BUFFER { PARAM) ; 


package DS_VALID_CLIENT_REQ_SERVER_THREAD_MANAGER is new 
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package DS_VALID_SPV_PRESPONSE_CLIENT_THREAD_MANAGEP is new 
PSDL_STREAMS.SAMPLED_BUFFER (MESSAGE) ; 
State stream instantiations 


package DS_DEVICE_STATUS_SERVER_THREAD_MANAGEP is new 
PSDL_STREAMS.STATE_VARIABLE (BOOLEAN, false) ; 


package DS_DEVICE_STATUS_MOUNT_DEVICE is new 
PSDL_STREAMS. STATE_VARIABLE (BOOLEAN, false) ; 


package DS_FILTER_ALERTS_ALERTS_DISPLAY_DB is new 
PSDL_STREAMS .STATE_VARIABLE (ALERT_PKG.ALERT, EMPTY) ; 


package DS_FILTER_DATA_DATA_DISPLAY_DB is new 
PSDL_STREAMS.STATE_VARIABLE (DB_RECORD_PKG.DB_RECORD, EMPTY); 


package DS_FILTER_MAPS_MAP_DISPLAY_DB is new 
PSDL_STREAMS.STATE_VARIABLE(MAP, EMPTY) ; 


package DS_FILTER_MSGS_MSG_DISPLAY_DB is new 
PSDL_STREAMS .STATE_VARIABLE (MESSAGE_PKG.MESSAGE, EMPTY) ; 


package DS_FILTER_TRACKS_TRACK_DISPLAY_DB is new 
PSDL_STREAMS.STATE_VARIABLE (TRACKS_PKG. TRACKS, EMPTY) ; 


package DS_ISS_CERTIFICATE_SECURITY_MANAGER is new 
PSDL_STREAMS.STATE_VARIABLE (CERTIFICATE_PKG.CERTIFICATE, EMPTY) ; 


package DS_ISS_KEY_SECURITY_MANAGER is new 
PSDL_STREAMS . STATE_VARIABLE(KEY_PKG.KEY, EMPTY) ; 


package DS_ISS_SIGNATURE_SECURITY_MANAGER is new 
PSDL_STREAMS.STATE_VARIABLE (SIGNATURE_PKG.SIGNATURE, EMPTY) ; 


package DS_ISSUE_CERTIFICATE_SERVER_THREAD_MANAGER is new 
PSDL_STREAMS.STATE_VARIABLE (CERTIFICATE_PKG.CERTIFICATE, EMPTY) ; 


package DSU ISSUEMCERTIFICATE VALIDATE CERTIFICATE 1s new 
PSDL_STREAMS.STATE_VARIABLE (CERTIFICATE_PKG.CERTIFICATE, EMPTY) ; 


package DS_ISSUE_KEY_SERVER_THREAD_MANAGER is new 
PSDL_STREAMS.STATE_VARIABLE(KEY_PKG.KEY, EMPTY); 


package DS_ISSUE_KEY_VALIDATE_KEY is new 
PSDL_STREAMS . STATE_VARIABLE (KEY_PKG.KEY, EMPTY) ; 


package DS_ISSUE_SIGNATURE_SERVER_THREAD_MANAGER is new 
PSDL_STREAMS.STATE_VARIABLE(SIGNATURE_PKG.SIGNATURE, EMPTY) ; 


package DS_ISSUE_SIGNATURE_VALIDATE_SIGNATURE is new 
PSDL_STREAMS. STATE_VARIABLE (SIGNATURE_PKG.SIGNATURE, EMPTY) ; 


package DS_MOD_OBJ_LOC_RESOLVE_RESOURCE_LOC is new 
PSDL_STREAMS.STATE_VARIABLE (ADMINISTER_PKG.ADMINISTER, EMPTY) ; 


package DS_MOD_RULES_BUSINESS_RULES_MANAGER is new 
PSDL_STREAMS.STATE_VARIABLE (ADMINISTER_PKG.ADMINISTER, EMPTY) ; 


package DS_SESSION_CONTROL_SESSION_MANAGER is new 
PSDL_STREAMS . STATE_VARIABLE (MESSAGE_PKG.MESSAGE, EMPTY) ; 


package DS_SESSION_DATA_SESSION_MANAGER is new 
PSDL_STREAMS . STATE_VARIABLE (MESSAGE_PKG.MESSAGE, EMPTY) ; 


package DS_AD_DEL_ALERTS_ALERTS_DISPLAY_DB is new 
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PSDL_STPEAMS.STATE_VAPIABLE (ALERT_PKG.ALERT, EMPTY) ; 


package DS_AD_DEL_DATA_DATA_DISPLAY_DB is new 


PSDL_STREAMS . STATE_VARIABLE (DB_PECORD_PKG.DB_RECORD, EMPTY); 


package DS_AD_DEL_MAP_MAP_DISPLAY_DB is new 
PSDL_STREAMS.STATE_VARIABLE(MAP, EMPTY) ; 


package DS_AD_DEL_MSGS_MSG_DISPLAY_DB is new 
PSDL_STREAMS.STATE_VARIABLE (MESSAGE_PKG.MESSAGE, EMPTY) ; 


package DS_AD_DEL_TRACKS_TRACK_DISPLAY_DB is new 
PSDL_STREAMS.STATE_VARIABLE (TRACKS_PKG.TRACKS, EMPTY) ; 


package DS_PRINT_RESPONSE_PRINT_MANAGER is new 
PSDL_STREAMS .STATE_VARIABLE (MESSAGE_PKG.MESSAGE, EMPTY) ; 


package DS_BITS_OUT_NETWORK is new 
PSDL_STREAMS.STATE_VARIABLE(BITS_PKG.BITS, EMPTY) ; 


package DS_DELIVER_MAP_SERVER_THREAD_MANAGER is new 
PSDL_STREAMS.STATE_VARIABLE (MAP, EMPTY) ; 


package DS_RESPOND_VALID_TRACKS_SERVER_THREAD_MANAGER is new 
PSDL_STREAMS .STATE_VARIABLE (TRACKS_PKG.TRACKS, EMPTY) ; 


package DS_SUBSCRIBE_TRACKS_SERVER_THREAD_MANAGER is new 
PSDL_STREAMS.STATE_VARIABLE (TRACKS_PKG.TRACKS, EMPTY) ; 


package DS_SUBSCRIBE_DB_CHANGES_SERVEP_THREAD_MANAGER is new 


PSDL_STREAMS . STATE_VARIABLE (DB_RECORD_PKG.DB_RECORD, EMPTY) ; 


package DS_RESPOND_ALERTS_SERVER_THREAD_MANAGER is new 
PSDL_STREAMS .STATE_VARIABLE(ALERT_PKG.ALERT, EMPTY) ; 


package DS_RESPOND_TRACKS_SERVER_THREAD_MANAGER is new 
PSDL_STREAMS.STATE_VARIABLE(TRACKS_PKG.TRACKS, EMPTY) ; 


package DS_RESPOND_MSGS_SERVER_THREAD_MANAGER is new 
PSDL_STREAMS .STATE_VARIABLE (MESSAGE_PKG.MESSAGE, EMPTY) ; 


package DS_RESPOND_TEMPLATE_SERVER_THREAD_MANAGER is new 
PSDL_STREAMS. STATE_VARIABLE (MESSAGE_PKG.MESSAGE, EMPTY) ; 


package DS_RESOURCE_PHYS_LOC_SERVER_THREAD_MANAGER is new 
PSDL_STREAMS. STATE_VARIABLE (MESSAGE_PKG.MESSAGE, EMPTY) ; 


package DS_RESPOND_MSG_SERVER_THREAD_MANAGER is new 
PSDL_STREAMS .STATE_VARIABLE (MESSAGE_PKG.MESSAGE, EMPTY) ; 


package DS_JOB_SPOOLED_MSG_SERVER_THREAD_MANAGER is new 
PSDL_STREAMS.STATE_VARIABLE (MESSAGE_PKG.MESSAGE, EMPTY) ; 


package DS_REQUEST_FILE_SERVER_THREAD_MANAGER is new 
PSDL_STREAMS.STATE_VARIABLE (MESSAGE_PKG.MESSAGE, EMPTY) ; 


package DS_ALERTS_FILTER_ALERTS_UPDATE_FILTER is new 
PSDL_STREAMS.STATE_VARIABLE(TRACKS_PKG.TRACKS, EMPTY) ; 


package DS_ALERTS_FILTER_RESOLVE_ALERTS is new 
PSDL_STREAMS .STATE_VARIABLE(TRACKS_PKG.TRACKS, EMPTY) ; 


package DS_ALERTS_MESSAGE_DB_RESOLVE_ALERTS is new 


PSDL_STREAMS ..STATE_VARIABLE (DB_RECORD_PKG.DB_RECORD, EMPTY) ; 


package DS_ALERTS_MESSAGE_DB_UPDATE_MSGS is new 


PSDL_STREAMS . STATE_VARIABLE (DB_RECORD_PKG.DB_RECORD, EMPTY) ; 
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package DS_FILE_DEL_DB_DELETE_FILE is new 


package DS_CCOPREL_FILTEP_CORREL_HANDLE_QUERY is new PSDL_STPEAMS.STATE_VAPIABLE(DB_RECORD_PKS.DB_RECOPRD, EMPT's} ; 


PSDL_STREAHS . STATE_VAPRIABLE (TRACKS _ PKG. TRACKS, EMPTY) ; 
package DS_FILE_DEL_DB_FCPMAT_PESPONSE is new 


package DS_CORREL_FILTER_COPPELSUPDATE_FILTEPR is new PSDL_STPEAMS . STATE_VAPIABLE (DB_RECORD_PKS.DB_PRECORD, EMPTY) ; 


PSDL_STREAMS.STATE_VARTIABLE (TRACKS _PKG.TRACKS, EMPTY) ; 
package DS_MSG_FILTEPR_HMSG_UPDATE_FILTER is new 


package DS_CCPREL_PECORD_DB_CORRELATE_TRACKS is new PSDL_STPREAMS .STATE_VARIABLE (\MESSAGE_PKG.MESSAGE, EMPTY) ; 


PSDL_STREAMS.STATE_VAPIABLE (DB_RECORD_PKG.DB_RECOPD, EMPTY} ; 
package DS_MSG_FILTER_MSG_HANDLE_QUEPY is new 


package DS_COPREL_PRECORD_DB_UPDATE_TACTICAL_DB is new PSDL_STREAMS . STATE_VARIABLE (MESSAGE_PKG.MESSAGE, EMPTY) ; 


PSDL_STREAMS . STATE_VARIABLE (DB_RECORD_PKG.DB_RECORD, EMPTY) ; 
package DS_MSG_MESSAGE_DB_ARCHIVE_MSGS is new 


package DS_COPREL_TPACK_DB_CORRELATE_TRACKS is new PSDL_STREAMS . STATE_VARIABLE (MESSAGE_PKG.MESSAGE, EMPTY) ; 


PSDL_STREAMS .STATE_VARIABLE (TPACKS_PKG. TRACKS, EMPTY) ; 
package DS_MSG_MESSAGE_DB_MSG_HANDLE_QUERY is new 


package DS_CORREL_TRACK_DB_CORREL_UPDATE_TRACKS is new PSDL_STREAMS.STATE_VARIABLE (MESSAGE_PKG.MESSAGE, EMPTY) ; 


PSDL_STREAMS .STATE_VAP.IABLE (TRACKS_PKG.TRACKS, EMPTY) ; 
package DS_TRACK_DB_UPDATE_TRACKS is new 


package DS_OBJ_ADD_DB_FORMAT_RESPONSE is new PSDL_STREAMS .STATE_VARI ABLE (TRACKS_PKG. TRACKS, EMPTY) ; 


PSDL_STREAHS . STATE_VARIABLE (DB_RECORD_PKG.DB_RECORD, EMPTY); 
package DS_TRACK_DB_HANDLE_QUERY is new 


package DS_OBJ_ADD_DB_ADD_OBJECT is new PSDL_STREAMS . STATE_VARIABLE (TRACKS_PKG.TPACKS, EMPTY) ; 


PSDL_STREAMS .STATE_VARIABLE (DB_RECORD_PKG.DB_RECORD, EMPTY) ; 
package DS_FILTER_UPDATE_FILTER is new 


package DS_OBJ_MOD_DB_FOPMAT_PESPONSE is new PSDL_STREAMS..STATE_VARIABLE (TRACKS_PKG.TPRACKS, EMPTY) ; 


PSDL_STREAMS.STATE_VARTABLE (DB_RECORD_PKG.DB_RECORD, EMPTY) ; 
package DS_FILTER_HANDLE_QUERY is new 


package DS_OBJ_MOD_DB_MOD_CBJECT is new PSDL_STREAMS .STATE_VARIABLE (TRACKS_PKG. TRACKS, EMPTY) ; 


PSDL_STREAMS. STATE_VARIABLE (DB_RECORD_PKG.DB_RECORD, EMPTY) ; 
package DS_CLIENT_REQ_BUSINESS_RULES_MANAGER is new 


package DS_OBJ_DEL_DB_DELETE_OBJECT is new PSDL_STREAMS .STATE_VARIABLE (MESSAGE_PKG.MESSAGE, EMPTY) ; 


PSDL STREAMS STATE_VARERELE (DB_RECORD_PKG.DB_RECORD, EMPTY); 
package DS_CLIENT_REQ_CLIENT_THREAD_MANAGER is new 


PSDL_STREAMS ..STATE_VARIABLE (MESSAGE_PKG.MESSAGE, EMPTY) ; 


package DS_OBJ_DEL_DB_FORMAT_RESPONSE is new 


PSDL_STREAMS .STATE_VARIABLE(DB_RECORD_PKG.DB_RECORD, EMPTY); 
package DS_SRV_RESPONSE_BUSINESS_RULES_MANAGER is new 


package DS_REC_ADD_DB_ADD_RECORD is new PSDL_STREAMS. STATE_VARIABLE (MESSAGE_PKG.MESSAGE, EMPTY) ; 


PSDL_STREAMS.STATE_VARIABLE (DB_RECORD_PKG.DB_RECORD, EMPTY); 
package DS_SRV_RESPONSE_SERVER_THREAD_MANAGER is new 


package DS_REC_ADD_DB_FORMAT_RESPONSE is new PSDL_STREAMS.STATE_VARIABLE (MESSAGE_PKG.MESSAGE, EMPTY) ; 


PSDL_STREAMS . STATE_VARIABLE (DB_RECORD_PKG.DB_RECORD, EMPTY) ; 
end SAAWC_STREAMS ; 
package DS_REC_MOD_DB_MOD_RECORD is new 


PSDL_STREAMS ..STATE_VARIABLE (DB_RECORD_PKG.DB_RECORD, EMPTY) ; package SAAWC_DRIVERS is 
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procedure 


TADIL_J_DRIVER; 


package DS_REC_MOD_DB_FORMAT_RESPONSE is new procedure GET_USER_CMD_DRIVER; 
PSDL_STREAMS. STATE_VARIABLE (DB_RECORD_PKG.DB_RECORD, EMPTY) ; procedure NETWORK_DRIVER; 
procedure ALERTS_DISPLAY_DB_DRIVER; 
package DS_REC_DEL_DB_DELETE_RECORD is new procedure DATA_DISPLAY_DB_DRIVER; 
PSDL_STREAMS.STATE_VARIABLE (DB_RECORD_PKG.DB_RECORD, EMPTY); procedure MAP_DISPLAY_DB_DRIVER; 
procedure MSG_DISPLAY_DB_DRIVER; 
package DS_REC_DEL_DB_FORMAT_RESPONSE is new procedure MSG_OUT_MANAGER_DRIVER; 
PSDL_STREAMS. STATE_VARIABLE(DB_RECORD_PKG.DB_RECORD, EMPTY) ; procedure PRINT_MANAGER_DRIVER; 
procedure SECURITY_MANAGER_DRIVER; 
package DS_FILE_ADD_DB_ADD_FILE is new procedure TRACK_DISPLAY_DB_DRIVER; 
PSDL_STREAMS .STATE_VARIABLE (DB_RECORD_PKG.DB_RECORD, EMPTY) ; procedure ALERTS_UPDATE_FILTER_DRIVER; 
procedure RESOLVE_ALERTS_DRIVER ; 
package DS_FILE_ADD_DB_FORMAT_RESPONSE is new procedure UPDATE_MSGS_DRIVER; 
PSDL_STREAMS. STATE_VARIABLE (DB_RECORD_PKG.DB_RECORD, EMPTY); procedure FTP_PROCESSOR_IN_DRIVER; 
procedure FTP_PROCESSOR_OUT_DRIVER; 
package DS_FILE_MOD_DB_MOD_FILE is new procedure HTTP_PROCESSOR_IN_DRIVER; 
PSDL_STREAMS. STATE_VARIABLE (DB_RECORD_PKG.DB_RECORD, EMPTY); procedure HTTP_PROCESSOR_OUT_DRIVER; 
procedure SMTP_PROCESSOR_IN_DRIVER; 
package DS_FILE_MOD_DB_FORMAT_RESPONSE is new procedure SMTP_PROCESSOR_OUT_DRIVER; 
PSDL_STREAMS .STATE_VARIABLE (DB_RECORD_PKG.DB_RECORD, EMPTY); procedure SNMP_PROCESSOR_IN_DRIVER; 
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procedure UDP_PROCESSOR_IN_DPIVER; with SMTP_PROCESSOP_CUT_PKG; use SMTP_PPOCESSOR_CUT_PKG; 
procedure UDP_PROCESSOP_OUT_DRIVER; with SNMP_PROCESSOP_IN_PKG; use SNMP_PRCCESSOP_IIt_PKG; 
procedure NETWORK_INTERFACE_IN_DPRIVEP; with SNMP_PROCESSOP_OUT_PKG; use SHNMP_PPROCESSOPR_CUT_PKG; 
procedure NETWORK_INTERFACE_OUT_DPIVERP; with TADIL_J_PKG; use TADIL_J_PKS; 
procedure SESSICN_MANAGER_DPIVER; with UDP_PROCESSOR_IN_PKG; use UDP_PROCESSOPR_IN_PKG; 
procedure CORPEL_HANDLE_QUEPY_DPIVER; with UDP_PROCESSOR_OUT_PKG; use UDP_PROCESSOPR_OUT_PKG; 
precedure COPRRELZJUPDATE FILTER. DRIVER; with ADD_FILE_PKG; use ADD_FILE_PKG; 
procedure CORPREL_UPDATE_TRACKS_DRIVER ; with ADD_OBJECT_PKG; use ADD_OBJECT_PKG; 
procedure COPRELATE_TRACKS_DRPIVER; with ADD_RECORD_PKG; use ADD_PECORD_PKG; 
procedure UPDATE_TACTICAL_DB_DRIVEP.; with ALERTS_DISPLAY_DB_PKG; use ALERTS_DISPLAY_DB_PKG; 
procedure ADD_FILE_DRIVER; with ALERTS_UPDATE_FILTER_PKG; use ALERTS_UPDATE_FILTER_PKG; 
procedure ADD_OBJECT_DRIVER; with ARCHIVE_MSGS_PKG; use APCHIVE_MSGS_PKG; 
procedure ADD_RECORD_DRIVER; with BUILD_FILE_PKG; use BUILD_FILE_PKG; 
procedure DELETE_FILE_DRIVER; with BUSINESS_RULES_MANAGER_PKG; use BUSINESS_RULES_MANAGER_PKG; 
procedure DELETE_OBJECT_DRIVER; with CHECK_FOR_FILE_PKG; use CHECK_FOR_FILE_PKG; 
procedure DELETE_RECORD_DRIVEP; with CLIENT_THREAD_MANAGER_PKG; use CLIENT_THREAD_MANAGER_PKG; 
procedure FOPRMAT_RESPONSE_DRIVER; with CORREL_HANDLE_QUERY_PKG; use CORREL_HANDLE_QUERY_PKG; 
procedure MOD_FILE_DRIVER; with CORREL_UPDATE_FILTEPR_PKG; use CORREL_UPDATE_FILTER_PKG; 
procedure MOD_OBJECT_DRIVER; with CORREL_UPDATE_TRACKS_PKG; use CORREL_UPDATE_TRACKS_PKG; 
procedure MOD_RECOPD_DPIVER; with CORRELATE_TRACKS_PKG; use COPRELATE_TRACKS_PKG; 
procedure RESOLVE_DATA_TYPE_DRIVER; with DATA_DISPLAY_DB_PKG; use DATA_DISPLAY_DB_PKG; 
procedure RESOLVE_REQUEST_TYPE_DRIVER; with DELETE_FILE_PKG; use DELETE_FILE_PKG; 
precedure PETRIEVE FILE SDRIVER; with DELETE_OBJECT_PKG; use DELETE_OBJECT_PKG; 
procedure RETRIEVE_OBJECT_DRIVER; with DELETE_RECORD_PKG; use DELETE_PECORD_PKG; 
procedure RETRIEVE_RECORD_DRIVER; with FORMAT_RESPONSE_PKG; use FORMAT_RESPONSE_PKG; 
procedure MOUNT_DEVICE_DRIVER; with GET_USER_CMD_PKG; use GET_USER_CMD_PKG; 
procedure LOCATE_MAP_DRIVER; with HANDLE_QUERY_PKG; use HANDLE_QUERY_PKG; 
procedure ARCHIVE_MSGS_DRIVER; with LOCATE_MAP_PKG; use LOCATE_MAP_PKG; 
procedure MSG _HANDLE_QUERY_DPIVER; with MAP_DISPLAY_DB_PKG; use MAP_DISPLAY_DB_PKG; 
procedure MSG_UPDATE_FILTER_DRIVER; with MOD_FILE_PKG; use MOD_FILE_PKG; 
procedure TEMPLATE_DATABASE_DRIVER; with MOD_OBJECT_PKG; use MOD_OBJECT_PKG; 
procedure RESOLVE_RESOURCE_LOC_DRIVER; with MOD_RECORD_PKG; use MOD_RECORD_PKG; 
procedure BUILD_FILE_DRIVER; with MOUNT_DEVICE_PKG; use MOUNT_DEVICE_PKG; 
procedure CHECK_FOR_FILE_DRIVER; with MSG_DISPLAY_DB_PKG; use MSG_DISPLAY_DB_PKG; 
procedure SPOOL_FILE_DRIVER; with MSG_HANDLE_QUERY_PKG; use MSG_HANDLE_QUERY_PKG; 
procedure VALIDATE_CERTIFICATE_DRIVER; with MSG_OUT_MANAGER_PKG; use MSG_OUT_MANAGER_PKG; 
procedure VALIDATE_KEY_DRIVER; with MSG_UPDATE_FILTER_PKG; use MSG_UPDATE_FILTER_PKG; 
procedure VALIDATE_SIGNATURE_DRIVER; with NETWORK_PKG; use NETWORK_PKG; 
procedure UPDATE_TIME_DRIVER; with NETWORK_INTERFACE_IN_PKG; use NETWORK_INTERFACE_IN_PKG; 
procedure HANDLE_QUERY_DRIVER; with NETWORK_INTERFACE_OUT_PKG; use NETWORK_INTERFACE_OUT_PKG; 
procedure UPDATE_FILTER_DRIVER; with PRINT_MANAGER_PKG; use PRINT_MANAGER_PKG; 
procedure UPDATE_TRACKS_DRIVER; with RESOLVE_ALERTS_PKG; use RESOLVE_ALERTS_PKG; 
procedure BUSINESS_RULES_MANAGER_DRIVER; with RESOLVE_DATA_TYPE_PKG; use RESOLVE_DATA_TYPE_PKG; 
procedure CLIENT_THREAD_MANAGER_DRIVER; with RESOLVE_REQUEST_TYPE_PKG; use RESOLVE_REQUEST_TYPE_PKG; 
procedure SERVER_THREAD_MANAGER_DRIVER; with RESOLVE_RESOURCE_LOC_PKG; use RESOLVE_RESOURCE_LOC_PKG; 
end SAAWC_DRIVERS; with RETRIEVE_FILE_PKG; use RETRIEVE_FILE_PKG; 
with RETRIEVE_OBJECT_PKG; use RETRIEVE_OBJECT_PKG; 
-~- with/use clauses for atomic components. with RETRIEVE_RECORD_PKG; use RETRIEVE_RECORD_PKG; 
with ADMINISTER_PKG; use ADMINISTER_PKG; with SECURITY_MANAGER_PKG; use SECURITY_MANAGER_PKG; 
with ALERT_PKG; use ALERT_PKG; with SERVER_THREAD_MANAGER_PKG; use SERVER_THREAD_MANAGER_PKG; 
with BITS_PKG; use BITS_PKG; with SESSION_MANAGER_PKG; use SESSION_MANAGER_PKG; 
with CERTIFICATE PKG; use CERTIFICATE_PKG; with SPOOL_FILE_PKG; use SPOOL_FILE_PKG; 
with DB_RECORD_PKG; use DB_RECORD_PKG; with TEMPLATE_DATABASE_PKG; use TEMPLATE_DATABASE_PKG; 
with DEVICE_PKG; use DEVICE_PKG; with TRACK_DISPLAY_DB_PKG; use TRACK_DISPLAY_DB_PKG; 
with KEY_PKG; use KEY_PKG; with UPDATE_FILTER_PKG; use UPDATE_FILTER_PKG; 
with MAP_PKG; use MAP_PKG; with UPDATE_MSGS_PKG; use UPDATE_MSGS_PKG; 
with MESSAGE_PKG; use MESSAGE_PKG; with UPDATE_TACTICAL_DB_PKG; use UPDATE_TACTICAL_DB_PKG; 
with PARAM_PKG; use PARAM_PKG; with UPDATE_TIME_PKG; use UPDATE_TIME_PKG; 
with PATH_PKG; use PATH_PKG; with UPDATE_TRACKS_PKG; use UPDATE_TRACKS_PKG; 
with SIGNATURE_PKG; use SIGNATURE_PKG; with VALIDATE_CERTIFICATE_PKG; use VALIDATE_CERTIFICATE_PKG; 
with TIMESTAMP_PKG; use TIMESTAMP_PKG; with VALIDATE_KEY_PKG; use VALIDATE_KEY_PKG; 
with TRACKS_PKG; use TRACKS_PKG; ; with VALIDATE_SIGNATURE_PKG; use VALIDATE_SIGNATURE_PKG; 


-- with/use clauses for generated packages. 
with SAAWC_EXCEPTIONS; use SAAWC_EXCEPTIONS; 
with SAAWC_STREAMS; use SAAWC_STREAMS; 
with SAAWC_TIMERS; use SAAWC_TIMERS; 
with SAAWC_INSTANTIATIONS; use SAAWC_INSTANTIATIONS ; 


With FTP_PROCESSOR_IN PKG "Use PrP OPROCESSOR_IN_ PKG; 
with FTP_PROCESSOR_OUT_PKG; use FTP_PROCESSOR_OUT_PKG; 
with HTTP_PROCESSOR_IN_PKG; use HTTP_PROCESSOR_IN_PKG; 
with HTTP_PROCESSOR_OUT_PKG; use HTTP_PROCESSOR_OUT_PKG; 
with SMTP_PROCESSOR_IN_PKG; use SMTP_PROCESSOR_IN_PKG; 
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with.use clauses for CAPS library packages. 
WiEh DS2PEBUS PEG; use PS_DEBUG_PEG; 
with PSDL_STREAMS; use PSDL_STREAHS; 
with PSDL_TIMERS; 

package body SAAWC_DRIVERS is 


procedure TADIL_J_DPPIVER is 
LV_FEED UIPACKS=: TRACKS PEG TRACKS, 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 


-- Data stream reads. 


-- Execution trigger condition check. 
if True then 
begin 
TADIL_Jd ( 
FEED_TRACKS => LV_FEED_TRACKS) ; 
exception 
when others => 
DS_DEBUG. UNDECLARED_EXCEPTION("TADIL_J"); 
EXCEPTION_HAS OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_FEED_TPACKS_UPDATE_TRACKS. BUFFER .WIRITE (LV_FEED_TRACKS) ; 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG. BUFFER_OVERFLOW (“FEED_TRACKS_UPDATE_TRACKS", “TADIL_J"); 
end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG. UNHANDLED_EXCEPTION { 
Sea DEL a”, 
PSDL_EXCEPTION’ IMAGE (EXCEPTION_ID) ) ; 
end if; 
end TADIL_J_DRIVER; 


procedure GET_USER_CMD_DRIVER is 
LV_DATA_OUT : MESSAGE_PKG.MESSAGE; '! 
LV_FILTER_ALERTS : ALERT_PKG.ALERT; 
LV_FILTER_DATA : DB _RECORD_PKG.DB_RECORD; 
LV_FILTER_MAPS : MAP; 
LV_FILTER_MSGS : MESSAGE_PKG.MESSAGE; 
LV_FILTER_TRACKS : TRACKS_PKG.TRACKS; 
LV_MOD_OBJ_Loc : ADMINISTEPR_PKG.ADMINISTER; 
LV_MOD_RULES : ADMINISTER_PKG.ADMINISTER; 
LV_PRINT_FILE : MESSAGE_PKG.MESSAGE; 
LV_REQ_SECURE_SESSION : MESSAGE_PKG.MESSAGE; 


EXCEPTION _HAS_OCCURRED: BOOLEAN := FALSE; 


begin 
-- Data trigger checks. 


-- Data stream reads. 


-- Execution trigger condition check. 
if True then 
begin 
GET_USER_CMD ( 
DATAJLOUT. => LY_DATA_OUT, 
FILTER_ALERTS => LY_FILTER_ALEPTS, 
FILTER_DATA => LY_FILTER_DATA, 
FILTER_MAPS => LV_FILTER_MAPS, 
FILTER_MSGS => LY_FILTER_MSGS, 
FILTER_TRACKS => LV_FILTER_TRACKS, 
MOD_OBJ_LOC => LV_MOD_OBJ_LOC, 
MOD_RULES => LV_HMOD_RULES, 
PReUNt bf LGE => DV PRINT FILE, 
REQ_SECURE_SESSION => LV_REQ_SECUPRE_SESSION) ; 
exception 
when others => 
DS_DEBUG. UNDECLARED_EXCEPTION ("GET_USER_CMD") ; 
EXCEPTION_HAS_OCCUPRED := Crue; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


Exception Constraint translations. 
-- Other constraint option translations. 


- Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_DATA_OUT_MSG_OUT_MANAGER. BUFFER .WRITE(LV.DATA_OUT) ; 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG. BUFFER_OVERFLOW( "DATA_OUT_MSG_OUT_MANAGERP.", "GEPeUsSeER CHD") ; 
end; 
end if; 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_FILTER_ALERTS_ALERTS_DISPLAY_DB. BUFFER .WRITE (LV_FILTER_ALERTS) ; 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG. BUFFER_OVERFLOW ( “FILTER_ALERTS_ALERTS_DISPLAY_DB", "“GET_USER_CM 
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YS) : 


end if; 
if not EXCEPTION HAS_OCCUPPED tlhe: 
begin 
Ber FIibPeRetATa (ata Cl ters . 2 bf. Pw eene aleewl eules 
exception 
when BUFFEF : ViFt. 


CS DEBUS BM lir rid re : mie " SET_USER_CMD") ; 
end; 
end if; 
if not EXCEPrPRrenAs i Gen 
begin 
DS_FILTER_MAPS_WAF [IStLar_0B. BURFER. Sb Tb be FILTEP MAPS): 


exception 
when BUFFER_OVERFLOW => 
DS_DEBUG. BUFFER_OVERFLOW("FILTER_MAPS_MAP_DISPLAY_DB*, “GET_USER_CMD"); 


end; 


ee Ne ee ee een ee a ae we Pl ee en eS a 
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begin 
DS_FILTER_MSGS_MSG_DISPLAY_DB.BUFFER.WRITE(LV_FILTEPR_MSGS ) ; 
exception 


when BUFFER_CVERFLOW => 
DS_DEBUG. BUFFER_OVERFLOV | "FILTEPR_MSGS_HMSG DISPLAY_DB", 
end; 
end if; 
if not EXCEPTION_HAS_OCCURP.ED then 
begin 
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-- Data trigger checks. 


-- Data stream reads. 
begin 
DS_BITS_OUT_NETWOPK.BUFFEP..READ(LV_BITS_CUT) ; 
exception 
when BUFFER_UNDEPFLCW => 
DS DEBUG. BUFFER_UNDEPR FLOW ("BITS_cUT_NETWOPRE", 
end; 


SHB TIGR hoa: 


DS_FILTER_TRACKS_TRACK_DISPLAY_DB. BUFFER .WRITE(LV_FILTER_TRACKS } ; 


exception 
when BUFFER_OVERFLOW => 


-- Execution trigger condition check. 
if Truc then 


DS_DEBUG. BUFFER_OVEPRFLOW | “FILTER_TRACKS_TRACK_DISPLAY_DB", “GET_USER_CMD") ; begin 
end; NETWORK ( 
end if; BirissoOUT => LV_BITS_OUuT, 
if not EXCEPTION_HAS_OCCURPPED then Biicoe| Ne=>-LVeablils. IN}: 
begin exception 


DS_MOD_OBJ_LOC_RESOLVE_RESOURCE_LOC . BUFFER .WPITE(LY_MOD_OBJ_LOC) ; 


exception 
when BUFFER_OVERFLOW => 
DS_DEBUG. BUFFER_OVEBFLOW ( "MOD_OBJ_LOC_RESOLVE_RESOURCE_LOC", 


end; 
end if; 
if not EXCEPTION_HAS_OCCUPRPED then 
begin 
DS_MOD_RULES_BUSINESS_PULES_MANAGER . BUFFER.WPRITE(LV_MOD_PULES) ; 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG . BUFFER_OVEPFLOW( "MOD_BULES_BUSINESS_PRULES_MANAGER", 


=e 


end; 
end if; 
if not EXCEPTION_HAS_OCCURP.ED then 
begin 
DS_PRINT_FILE_PRINT_MANAGER . BUFFER .WRITE(LV_PRINT_FILE) ; 
exception 


when BUFFER_OVERFLOW => 
DS_DEBUG. BUFFER_OVERFLOW( "PRINT_FILE_PRINT_MANAGER", 
end; 
end if; 
if not EXCEPTION_HAS OCCURRED then 
begin 


DS_REQ_SECURE_SESSION_SECURITY_MANAGER. BUFFER .WRITE (LV_REQ SECURE_SESSION) ; 


exception 
when BUFFER_OVERFLOW => 


DS_DEBUG. BUFFER_OVERFLOW( "REQ _SECURE_SESSION_SECURITY_MANAGER", 


Dp) : 
end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG . UNHANDLED_EXCEPTION { 
"GET_USER_CMD", 
PSDLZEXCEPTION’ IMAGE (EXCEPTION_ID)}; 
end if; 
end GET_USER_CMD_DRIVER; 


procedure NETWORK_DRIVER is 
LV BI Ts20ut : Bits PRG. Sits; 
LV BiTsS20N BETS PKG SBITs; 
EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 

begin 


when others => 
DS_DEBUG. UNDECLARED_EXCEPTION ( “NETWORK") ; 
EXCEPTION_HAS_OCCUBRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


"GET_USER_CMD" } 


-- Exception Constraint translations. 
-- Other constraint option translations. 


--Unconditional output translations. 
it’ not sEACEPLION HAS_OCCURRED Chen 
begin 
DS_BITS_IN_NETWORK_INTERFACE_IN.BUFFER .WRITE(LY_BITS_IN) ; 
exception 
when BUFFER_OVERFLOW => 


GE. sUSERZ CHD” } 


DS_DEBUG. BUFFER_OVERFLOW ("BITS_IN_NETWORK_INTERFACE_IN", 


end; 
ena eb; 


"SET USERZCMD") ; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG. UNHANDLED_EXCEPTION ( 
"NETWORK", 
PSDL_EXCEPTION’ IMAGE (EXCEPTION_ID)) ; 
end if; 
end NETWORK_DRIVER; 
"GET_USER_CM 


procedure ALERTS_DISPLAY_DB_DRIVER is 
LV_AD_DEL_ALERTS : ALERT_PKG.ALERT; 
LV_AD_SUB_ALERTS ALERT_PKG. ALERT; 
LV_FILTER_ALERTS : ALERT_PKG.ALERT; 
EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 

EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 


-- Data stream reads. 
begin 


“NETWORK °} ; 


DS_AD_DEL_ALERTS_ALERTS_DISPLAY_DB. BUFFER .READ(LV_AD_DEL_ALERTS) ; 


exception 
when BUFFER_UNDERFLOW => 


DS_DEBUG. BUFFER_UNDERFLOW ( “AD_DEL_ALERTS_ALERTS_DISPLAY_DB°*, 


AY_DB"}; 
end; 
begin 
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“ALERTS_DISPL 
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DS_FILTER_ALERTS_ALERTS_DISPLAY_DB. BUFFER .READ(LY_FILTER_ALEPRTS: ; 
exception 


when BUFFER_UNDERFLOW => 


DS_DEBUG. BUFFEP_UNDERFLOW {i "FILTER_ALERTS_ALERTS_DISPLAY_DB", "ALERTS _DISPLAY_D 


Bein 
end; 


-- Execution trigger condition check. 
if True then 
begin 
ALERTS_DISPLAY_DB ( 
AD_DEL_ALERTS => LV_AD_DEL_ALERTS, 
AD_SUB_ALERTS => LV_AD SUB_ALERTS, 
FILTER_ALERTS => LV_PILTEP_ALERTS) ; 
exception 
when others => 
DS_DEBUG . UNDECLARED_EXCEPTION ("ALERTS_DISPLAY_DB") ; 
EXCEPTION_HAS_ OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_ EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-~ Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS OCCURRED then 
begin 
DS_AD_SUB_ALERTS_CLIENT_THREAD_MANAGER. BUFFER .WRITE(LV_AD_SUB_ALERTS) ; 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG. BUFFER_OVERFLOW ( "AD_SUB_ALERTS_CLIENT_THREAD_MANAGER", "ALERTS_DISP 
LAY_DB") ; 
end; 
end if; 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_FILTER_ALERTS_ALERTS_DISPLAY_DB. BUFFER .WRITE(LV_FILTER_ALERTS) ; 
exception 
when BUFFER_OVERFLOW => 


DS_DEBUG. BUFFER_OVERFLOW("FILTER_ALERTS_ALERTS_DISPLAY_DB", "ALERTS _DISPLAY_ 
DB") : 


end if; 


~- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG.UNHANDLED_EXCEPTION ( 
"ALERTS_DISPLAY_DB", 
PSDL_EXCEPTION’ IMAGE( EXCEPTION_ID}) ; 
end if; 
end ALERTS_DISPLAY_DB_DRIVER; 


procedure DATA_DISPLAY_DB_DRIVER is 
LV_AD_DEL_DATA : DB_RECORD_PKG.DB_RECORD; 
LV_AD_SUB_DATA : DB_RECORD_PKG.DB_RECORD; 
LV_FILTER_DATA : DB_RECORD_PKG.DB_RECORD; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
- Data trigger checks. 


De ee 


begin 
DS_AD_DEL_DATA_DATA_DISPLAY_DB.BUFFEP.READ- L’’_AD DEL DATA}; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLO!: "4AD_DEL_DATA_DATA_DISPLAYT_DB", “PDATA_DISPLAY_DB" 


end; 
begin 
DS_FILTER_DATA_DATA_DISPLAY_DB.BUFFEP..READ( LY_PFILTER_DATA} ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW ("FILTER_DATA_DATA_DISPLAY_DB", "DATA_DISPLAY_DB" 


end; 


-- Execution trigger condition check. 
if True then 
begin 
DATA_DISPLAY_DB( 
AD_DEL_DATA => LV_AD_DEL DATA, 
AD_SUB_DATA => LV_AD_SUB_DATA, 
FILTER_DATA => LV_FILTER_DATA) ; 
exception 
when others => 
DS_DEBUG. UNDECLARED_EXCEPTION ("DATA_DISPLAY_DB"); 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED _ADA_EXCEPTION; 
end; 
else return; 
end if; 


- Exception Constraint translations. 
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-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_AD_SUB_DATA_CLIENT_THREAD_MANAGER. BUFFER .WRITE (LV_AD_SUB_DATA) ; 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG . BUFFER_OVERFLGOW ( "AD_SUB_DATA_CLIENT_THREAD_MANAGER", “DATA_DISP 


LAY_DB"); 
end; 
end if; 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_FILTER_DATA_DATA_DISPLAY_DB. BUFFER .WRITE(LV_FILTER_DATA) ; 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG. BUFFER_OVERFLOW( “FILTER_DATA_DATA_DISPLAY_DB", "DATA_DISPLAY_DB 
we 
end; 
end if; 


-~ PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG.UNHANDLED_EXCEPTION ( 
"DATA_DISPLAY_DB", 
PSDL_EXCEPTION’‘ IMAGE( EXCEPTION_ID} }; 
end if; 
end DATA_DISPLAY_DB_DRIVER; 


procedure MAP_DISPLAY_DB DRIVER is 
LV_AD_DEL_MAP : MAP; 


WWE/72.L/5AAMWO.D 8 fue sep Lo viivyi4o L979) 7 
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LY_FILTER_MAPS : MAP; 


EXCEPTION _HAS_OCCUPPED: BOOLEAN := FALSE; procedure MSG_DISPLAY_DB_DRIVEP is 
EXCEPTION ID: PSDL_EXCEPTION? LV_AD_DEL_MSGS : MESSAGE_PKG. MESSAGE; 
begin LV_AD_SUB_MSGS : MESSAGE PK.G.MESSAGE; 
-- Data trigger checks. LV_FILTEPR_MSGS : MESSAGE_PKG.MESSAGE; 
-- Data stream reads. EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
begin EXCEPTION_ID= PSDL_EACEPTION: 
DS_AD_DEL_MAP_MAP_DISPLAY_DB. BUFFER .READ(LV_AD_DEL_MAP) ; begin 
exception -- Data trigger checks. 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW ("AD _DEL_MAP_MAP_DISPLAY_DB", "MAP_DISPLAY_DB"}) ; -- Data stream reads. 
end; begin 
begin DS_AD_DEL_MSGS_MSG_DISPLAY_DB.BUFFEP .READ (LVY_AD_DEL_MSGS) ; 
DS_FILTER_MAPS_MAP_DISPLAY_DB.BUFFER.READ(LV_FILTER_MAPS) ; exception 
exception when BUFFER_UNDERFLOW => 
when BUFFER_UNDERFLOW => DS_DEBUG. BUFFER_UNDERFLOW ("“AD_DEL_MSGS_MSG_DISPLAY_DB", "MSG_DISPLAY_DB"} ; 
DS_DEBUG. BUFFER_UNDERFLOW ("FILTER_MAPS_MAP_DISPLAY_DB", “MAP _DISPLAY_DB") ; end; 
end; begin 
DS_FILTER_MSGS_MSG_DISPLAY_DB.BUFFER.READ(LV_FILTER_MSGS)} ; 
-- Execution trigger condition check. exception 
if True then when BUFFER_UNDERFLOW => 
begin DS_DEBUG. BUFFER_UNDERFLOW ({"FILTER_MSGS_MSG_DISPLAY_DB", "MSG_DISPLAY_DB") ; 
MAP_DISPLAY_DB( end; 
AD_DEL_MAP => LV_AD_DEL_MAP, 
AD_SUB_MAP => LV_AD_SUB_MAP, -- Execution trigger condition check. 
FILTER_MAPS => LV_FILTER_MAPS) ; if True then 
exception begin 
when others => MSG_DISPLAY_DB({ 
DS_DEBUG. UNDECLARED_EXCEPTION ("MAP_DISPLAY_DB") ; AD_DEL_MSGS => LV_AD_DEL_MSGS, 
EXCEPTION_HAS_OCCURRED == true; AD_SUB_MSGS => LV_AD_SUB_MSGS, _ 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; FILTER_MSGS => LV_FILTER_MSGS) ; N 
end; exception = 
else return; when others => 
end if; DS_DEBUG. UNDECLARED_EXCEPTION ("MSG_DISPLAY_DB") ; 
EXCEPTION_HAS_OCCURRED := true; 
-- Exception Constraint translations. EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
-- Other constraint option translations. else return; 
end if; 
--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then -- Exception Constraint translations. 
begin 
DS_AD_SUB_MAP_CLIENT_THREAD_MANAGER .BUFFER.WRITE(LV_AD_SUB_MAP) ; -- Other constraint option translations. 
exception 
when BUFFER_OVERFLOW => --Unconditional output translations. 
DS_DEBUG. BUFFER_OVERFLOW("AD_SUB_MAP_CLIENT_THREAD_MANAGER", "MAP_DISPLAY_DB if not EXCEPTION_HAS_OCCURRED then 
a: begin 
end; DS_AD_SUB_MSGS_CLIENT_THREAD _MANAGEP . BUFFER .WRITE(LV_AD_SUB_MSGS) ; 
end if; exception 
if not EXCEPTION_HAS_OCCURRED then when BUFFER_OVERFL OW = + 
begin DS DEBUG. BUFFERS -FRIli «<3 iat Peco! AA sept ee MSGEDESPL 
DS_FILTER_MAPS_MAP_DISPLAY_DB.BUFFER.WRITE(LV_FILTER_MAPS) ; AY_DB"); 
exception end; 
when BUFFER_OVERFLOW => end if; 
DS_DEBUG. BUFFER_OVERFLOW("FILTER_MAPS_MAP_DISPLAY_DB", "MAP_DISPLAY_DB"); Pepmeeeo CCE PTI tas 
end; begin 
end if; Demme hol eRensGs Hso blabac.! ai fo ots. eu et Pe eleite ots tees 
exception 
-- PSDL Exception handler. when BUFFER_OVERFLOW => 
if EXCEPTION_HAS_ OCCURRED then DS DEBUG. BUFFER_OVERFLOW( “FILTER_MSGS_MSG_DISPLAY_DB", "MSG_DISPLAY_DB") 
DS_DEBUG . UNHANDLED_EXCEPTION ( ; 
“MAP_DISPLAY_DB", end; 
PSDL_EXCEPTION’ IMAGE (EXCEPTION_ID) ) ; end if; 
end if; 


end MAP_DISPLAY_DB_DRIVER; == PSDE Exception handler. 
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1f EXCEPTION_HAS_CCCURRED then 
DS_DEBUG. UNHANDLED _ EXCEPTION ( 
"MSG DISPLAY_DB", 
PSDL_EXCEPTION’ IMAGE (EXCEPTION_ID)); 
end if; 
end MSG _DISPLAY_DB_DPIVER; 


procedure MSG_OUT_MANAGER_DRIVER is 
LY_DATA_CUT MESSAGE _PKG .MESSAGE; 
LV_MSG_CUT : MESSAGE_PKG.MESSAGE; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 


-- Data trigger checks. 


-- Data stream reads. 
begin 
DS_DATA_OUT_MSG_OUT_MANAGEP. . BUFFER. READ (LY_DATA_OUT) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW ( “DATA_OUT_MSG_OUT_MANAGER", 
end; 


-- Execution trigger condition check. 
if True then 
begin 
MSG_OUT_MANAGER ( 
DATA_OUT => LV_DATA_OUT, 
MSG_OUT => LV_MSG_OUT) ; 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION ("MSG_OUT_MANAGER") ; 
EXCEPTION_HAS_OCCURBPED := true; 
EXCEPTION_ID := UNDECLARED_ADA EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_MSG_OUT_SECURITY_MANAGER . BUFFER.WRITE(LV_MSG_OUT) ; 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG. BUFFER_OVERFLOW( "MSG_OUT_SECURITY_MANAGER", 
end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG . UNHANDLED_EXCEPTION ( 
"“MSG_OUT_MANAGER", 
PSDL_EXCEPTION’ IMAGE (EXCEPTION_ID)) ; 
end if; 
end MSG_OUT_MANAGER_DRIVER; 


procedure PRINT_MANAGER_DRIVER is 
LV_PRINT_FILE : MESSAGE_PKG.MESSAGE; 
LV_PRINT_BRESPONSE MESSAGE_PKG .MESSAGE; 
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"MSG _OUT_MANAGER" ) ; 


“MSG_OUT_MANAGER") ; 


EXCEPTION_HAS_OCCUPRED: BOCLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTI<N; 
begin 
-- Data trigger checks. 


-- Data stream reads. 
begin 
DS_PRINT_FILE_PRINT_MANAGEP..BUFFER.READ(LV_PPINT_FILE) ; 
exception 
when BUFFER_UNDERFLOW => 


DS_DEBUG. BUFFER_UNDEPRFLiW ("PRINT_FILE_PRINT_MANAGER", "PRINT_MANAGERP"} ; 


end; 
begin 

DS_PRINT_RESPONSE_PRINT_MANAGER .BUFFEP..READ(LVY_PRINT_RESPCNSE) ; 
exception 

when BUFFER_UNDERFLOW => 


DS_DEBUG. BUFFER_UNDERFLC¥ (" PRINT_RESPONSE_PRINT_MANAGER", "PRINT_MANAGER" ) 


~e 


end; 


-- Execution trigger condition check. 
if True then 
begin 
PRINT_MANAGER ( 
PRINT_FILE => LV_PRINT_FILE, 
PRINT_RESPONSE => LV_PRINT_RESPONSE, 
PRINT_REO => LV_PRINT_REQ); 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTIOlN("PRINT_MANAGER" ) ; 
EXCEPTION_HAS_OCCURPED :;:= true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_PRINT_REQ_CLIENT_THREAD_MANAGER. BUFFER .WRITE (LV_PRINT_REQ) ; 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG. BUFFER_OVERFLOW("PRINT_REQ_CLIENT_THREAD_MANAGER", 
ER"); 
end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG . UNHANDLED_EXCEPTION { 
“PRINT_MANAGER", 
PSDL_EXCEPTION’ IMAGE(EXCEPTION_ID)); 
end if; 
end PRINT_MANAGER_DRIVER; 


procedure SECURITY_MANAGER_DRIVER is 
LV_MSG_OUT : MESSAGE_PKG.MESSAGE; 
LV_REQ_SECURE_SESSION : MESSAGE_PKG.MESSAGE; 
LV_ISS_CERTIFICATE : CERTIFICATE_PKG.CERTIFICATE; 
LV_ISS_KEY : KEY_PKG.KEY; 
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"PRINT_MANAG 
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LVAPEGSCEREIEI CATE -SG@EPTIEICATE PKG. CERTIFICATE; 
LV_PEO_ KEY =: "REy_PRG. KEY; 
LY_REO_SIGNATUPE SIGNATURE_PKG.SIGNATURE; 
LY_SECUPRE_MSG_OCUT : MESSAGE_PKG.MESSAGE; 
EXCEPTION HAS_CCCURRED: BOOLEAN := PALSE; 
EXCEPTION_ID: PSDL_EXCEPTIGH; 
begin 
-- Data trigger checks. 
-- Data stream reads. 
begin 
DS_ISS_CERTIFICATE_SECURITY_MANAGEP. .BUFFEP.READ(LV_ISS_CERTIFICATE) ; 
exception 


when BUFFER_UNDERFLOW => 


DS_DEBUG. BUFFER_UNDERFLOW ({"“ISS_CERTIFICATE_SECURITY_MANAGER", “SECURITY_MANAGE 


Re 
end; 
begin 
DS_ISS_KEY_SECURI Ty_MANAGER . BUFFER. PEAD(LV_ISS_KEY) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW (“ISS_KEY_SECURITY_MANAGER", "“SECURITY_MANAGER") ; 
end; 
begin 
DS_ISS_SIGNATUPRE_SECURITY_MANAGER. BUFFER. READ(LV_ISS_SIGNATURE) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDEPRFLOW ("ISS_SIGNATURE_SECURITY_MANAGER", "SECUP.ITY_MANAGER " 
De 
end; 
begin 
DS_MSG_OUT_SECURITY_MANAGER . BUFFER. READ (LV_MSG_OUT) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDEP.FLOW ("MSG_OUT_SECURITY_MANAGER", “SECURITY_MANAGER ") ; 
end; 
begin 
DS_REQ_SECURE_SESSION_SECURITY_MANAGER. BUFFER .READ(LV_REQ_SECURE_SESSION) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW ("REQ_SECURE_SESSION_SECURITY_MANAGER", "SECURITY_MAN 
AGER") ; 


end; 


-- Execution trigger condition check. 
if True then 
begin 
SECURITY_MANAGER ( 
MSG_OUT => LV_MSG_OUT, 
REO_SECURE_SESSTON => LV OREO SECURE SESSION, 
ISS_CERTIFICATE => LV_ISS_CERTIFICATE, 
ISS_KEY => LV_ISS_KEY, 
ISS_SIGNATURE => LV_ISS_SIGNATURE, 
REO CERTIFICATE = seb V2REOSCERTIFICATE, 
REOUKEY => > LY SREOUKEY, 
REQ_SIGNATURE => LV_REQ_SIGNATURE, 
SECURE_MSG_OUT => LV_SECURE_MSG_OUT) ; 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION ("SECURITY _MANAGER") ; 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS OCCUPPEPD then 
begin 
PSMISS CERTIFICATE SECURITY MANAGER .BUFFER .VWRITE(LV_ISS CERTIFICATE) ; 
exception 
when BUFFER_OVERFLOW => 


DS_DEBUG. BUFFER_OVERFLOW ( "ISS_CEPTIFICATE_SECURITY_MANAGEPR", "“SECUPRITY_M 


ANAGER"); 
end; 
end if; 
if not EXCEPTION_HAS_OCCUPPED then 
begin 
DS_ISS_KEY_SECURI TY_MANAGEP.. BUFFEP..WRITE(LV_ISS_KFE?Y) ; 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG. BUFFER_OVERFLOW{ “ISS_KEY_SECUPRITY_MANAGER", "SECURITY _MANAGER" } 
end; 
end if; 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_ISS_SIGNATURE_SECURI TY_HMANAGER . BUFFER .tIRITE(LY_ISS_SIGNATUPE) ; 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG. BUFFER_OVERFLOW( "ISS_SIGNATURE_SECURITY_MANAGER", "“SECURITY_MAN 
AGER") ; 
end; 
end its Vo) 
if not EXCEPTION_HAS_OCCURPED then AN 
begin a 
DS_REQ_CERTIFICATE_CLIENT_THREAD_MANAGER. BUFFER .WRITE (LV_REQ CERTIFICATE) ; 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW( "REQ_CERTIFICATE_CLIENT_THREAD_MANAGER.", “SECUR 


ITY_MANAGER") ; 


end; 
end if; 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_REQ_KEY_CLIENT_THREAD_MANAGER. BUFFER .WRITE(LV_REQ_KEY) ; 
exception 


when BUFFER_OVERFLOW => 


DS_DEBUG. BUPFFER_OVERFLOW("REQ_KEY_CLIENT_THREAD_MANAGER.", “SECURITY_MANA 


GER"); 
end; 
end if; 
if not EXCEPTION_HAS OCCURRED then 
begin 
DS_REQ_SIGNATURE_CLIENT_THREAD_MANAGER. BUFFER .WRI TE (LV_REQ_SIGNATURE) ; 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG. BUFFER_OVERFLOW ( "REQ_SIGNATURE_CLIENT_THREAD_MANAGER", “SECURIT 
Y MANAGER“) ; 
end; 
end if; 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_SECURE_MSG_OUT_CLIENT_THREAD_MANAGER . BUFFER .WRITE( LV_SECURE_MSG_OUT) ; 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG. BUFFER_CVERFLCH | "SECURE_MSG_OUT_CLIENT_THREAD_MANASER", “SECURI 
TY_MANAGER"); 


end; 
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end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_ OCCURRED then 
DPS_DEBUG. UNHANDLED_EXCEPTION: 
“SECURITY _MANASER", 
PSDL_EXCEPTION’ IMAGE (EXCEPTION_ID) ) ; 
end if; 
end SECURITY_MANAGEP,_DPRIVER; 


procedure TPACK_DISPLAY_DB DRIVER is 
LV_AD_DEL_TRACKS : TRACKS_PKG.TRACKS; 
LV_AD_SUB_TRACKS : TRACKS_PKG.TRACKS; 
LY_FILTER_TRACKS TRACKS_PKG.TRACKS; 


EXCEPTION_HAS_OCCURRED: BOCLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTICN; 
begin 
- Data trigger checks. 


- Data stream reads. 
begin 
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DS_AD_DEL_TRACKS_TRACK_DISPLAY_DB.BUFFER .READ(LV_AD_DEL_TRACKS) ; 


exception 
when BUFFER_UNDERFLOW => 


DS_DEBUG. BUFFER_UNDEP.FLOVI ("AD_DEL_TRACKS_TRACK_DISPLAY_DB", "TRACK_DISPLAY_DB" 


end; 
begin 


DS_FILTER_TPACKS_TRACK_DISPLAY_DB.BUFFEP .PREAD(LY_FILTER_TRACKS) ; 


exception 
when BUFFER_UNDERFLOW => 


DS_DEBUG. BUFFER_UNDERFLOW("FILTER_TRACKS_TRACK_DISPLAY_DB", "TRACK_DISPLAY_DB" 


=e 


end; 


- Execution trigger condition check. 
if True then 

begin 

TRACK_DISPLAY_DB ( 
AD_DEL_TRACKS => LV_AD_DEL_TRACKS, 
AD_SUB_TRACKS => LV_AD_SUB_TRACKS, 
FILTER_TRACKS => LV_FILTER_TRACKS) ; 

exception 
when others => 


DS_DEBUG.UNDECLARED_EXCEPTION ("TRACK_DISPLAY_DB") ; 


EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 
--Unconditional output translations. 


if not EXCEPTION_HAS_OCCURRED then 
begin 


DS_AD_SUB_TRACKS_CLIENT_THREAD_MANAGER. BUFFER .WRITE(LV_AD_SUB_ TRACKS) ; 


exception 
when BUFFER_OVERFLOW => 


DS_DEBUG . BUFFER_OVERFLOW( "AD_SUB_TRACKS_CLIENT_THREAD MANAGER", "TRACK_DISPL 


Eevee.) 


end; 
end if: 
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if not EXCEPTION_HAS_CCCUPRPED then 
begin 


DS_FILTER_TPRACKS_TPACK_DISPLAY_DB.BUFFEP..\JPITE(LY_FILTEP_TRACKS} ; 


exception 
when BUFFEPR_OVERFLOW => 


DS_DEBUG. BUFFEP_OVEPRFLOW( "FILTEP_TRACKS_TRACK_DISPLAY_DB", 


‘¢_DB") ; 
end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS OCCURRED then 
DS_DEBUG.UNHANDLED_EXCEPTION | 
"TRACK_DISPLAY_DB", 
PSDL_EXCEPTION’ IMAGE (EXCEPTION_ID)); 
end if; 
end TRACK_DISPLAY_DB_ DRIVER; 


procedure ALERTS_UPDATE_FILTER_DRIVEPR is 
bY SREQUALERTS ALERT_PKG.ALERT; 
LV_ALERTS_FILTER : TRACKS_PKG.TPRACKS; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Dataetrigger checks. 


-- Data stream reads. 
begin 


"TPACK_DISPLA 


DS_ALERTS_FILTEPR_ALER TS_UPDATE_FILTEP .BUFFER.PEAD (LV_ALERTS_FILTEP) ; 


exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG . BUFFER_UNDERFLOW ({ 


"ALERTS_FILTER_ALERTS_UPDATE_FILTER", "“ALERTS_UPDATE_FILTER") ; 


end; 
begin 


DS_REQ_ALERTS_ALERTS_UPDATE_FILTER. BUFFER .READ( LV_REQ_ALERTS) ; 


exception 
when BUFFER_UNDERFLOW => 


DS_DEBUG. BUFFER_UNDERFLOW( "REO_ALERTS_ALERTS_UPDATE_FILTER", 


E. FILTER") 
end; 


-- Execution trigger condition check. 
if True then 

begin 

ALERTS_UPDATE_FILTER ( 
REQ_ALERTS => LV_REQ_ALERTS, 
ALERTS_FILTER => LV_ALERTS_FILTER) ; 

exception 
when others => 


DS_DEBUG .UNDECLARED_EXCEPTION("ALERTS_UPDATE_FILTER") ; 


EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 
begin 
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exception 
when BUFFER_OVERFLOW => 


--Unconditional output translations. 


DS_DEBUG. BUFFER_OVEPRFLOVW( "ALERTS_PILTER_ALEPRTS_UPDATE_FILTER", “ALERTS_UPDAT if not EXCEPTION_HAS_OCCUPPRED then 
ESPILTERS = begin 
end; DS_RESPOND_ALEPTS_SEPRVEP_THREAD_MANAGEP. .BUPFFEPR.WPRITE( LY_PESPOND_ALEPTS) ; 
begin exception 
DS ALGER TSoF LELTER. PESOLYBSALERTS .BUFFPER.WRITE(LV_ALERTS_FILTER) ; when BUFFER_OVEPFLOW => 
exception DS_DEBUG. BUFFER_OVEPFLC! i "RESPCND_ALERTS_SEPVER_THREAD_ MANAGER", “RESOLV 
when BUFFER_OVEPFLOW => E-ALERTS 33, 
DS_DEBUG. BUFFER_OVERFLOW( “ALERTS_FILTER_PRESOLVE_ALERTS", “ALERTS_UPDATE_FILT end; 
ER iis end if; 
end; 
end if; -- PSDL Exception handler. 


if EXCEPTION_HAS_OCCUPPED then 
DS_DEBUG . UNHANDLED_EXCEPTION ( 
“RESOLVE_ALERTS", 
PSDL_EXCEPTION’ IMAGE (EXCEPTION_ID) ) ; 
end if; 
end RESOLVE_ALERTS_DRIVER; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG .. UNHANDLED_EXCEPTION ( 
"ALERTS _UPDATE_FILTER",; 
PSDL_EXCEPTION’ IMAGE (EXCEPTION_ID) ) ; 
end if; 


end ALERTS_UPDATE_FILTER_DRIVER; 
procedure UPDATE_MSGS_DRIVER is 


LV_FEED_MSGS : MESSAGE_PKG.MESSAGE; 


procedure RESOLVE_ALERTS_DRIVER is LV_ALERTS_MESSAGE_DB : DB_RECORD_PKG.DB_RECORD; 


LV_ALERTS_PILTER : TRACKS _PKG.TRACKS; 
LV_ALERTS_MESSAGE_DB : DB_RECORD_PKG.DB_RECORD; 
LV_RESPOND_ALERTS : ALERT_PKG.ALERT; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEFTION_ID: PSDL_EXCEPTION; 
begin 

-- Data trigger checks. 
-- Data stream reads. 

begin 

DS_ALERTS_MESSAGE_DB_UPDATE_MSGS. BUFFER .READ ( 

LV_ALERTS_MESSAGE_DB) ; 

exception 


-- Data stream reads. 
when BUFFER_UNDERFLOW => 


begin 
DS_ALERTS_FILTER_RESOLVE_ALERTS . BUFFER . READ (LV_ALERTS_FILTER} ; DS_DEBUG. BUFFER_UNDEPFLOW ("ALERTS_MESSAGE_DB_UPDATE_MSGS", "UPDATE_MSGS") ; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EACEPTION; 
begin 
-~ Data trigger checks. 
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exception end; 
when BUFFER_UNDERFLOW => begin 
DS_DEBUG. BUFFER_UNDERFLOt ("ALERTS _FILTER_RESOLVE_ALERTS", "RESOLVE_ALERTS") ; DS_FEED_MSGS_UPDATE_MSGS. BUFFER .READ(LVY_FEED_MSGS) ; 
end; exception 
begin when BUFFER_UNDERFLOW => 
DS_ALERTS_MESSAGE_DB_RESOLVE_ALERTS .. BUFFER.READ (LV_ALERTS_MESSAGE_DB) ; DS_DEBUG. BUFFER_UNDERFLOW ("FEED_MSGS_UPDATE_MSGS", "UPDATE_MSGS") ; 
exception end; 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW ("ALERTS_MESSAGE_DB_RESOLVE_ALERTS", "RESOLVE_ALERTS" -- Execution trigger condition check. 
) 3 if True then 
end; begin 


UPDATE_MSGS ( 
FEED_MSGS => LV_FEED_MSGS, 
ALERTS_MESSAGE_DB => LV_ALERTS_MESSAGE_DB) ; 
exception 
when others => 
DS_DEBUG . UNDECLARED_EXCEPTION (*UPDATE_MSGS") ; 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 


-- Execution trigger condition check. 
if True then 
begin 
RESOLVE_ALERTS ( 
ALERTS_FILTER => LV_ALERTS_FILTER, 
ALERTS_MESSAGE_DB => LV_ALERTS_MESSAGE_DB, 
RESPOND_ALERTS => LV_RESPOND_ALERTS) ; 


exception end; 
when others => else return; 
DS_DEBUG.UNDECLARED_EXCEPTION ("RESOLVE_ALERTS") ; end if; 


EXCEPTION_HAS_ OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 


-~-Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_ALERTS_MESSAGE_DB_RESOLVE_ALERTS . BUFFER ..WRITE(LV_ALERTS_MESSAGE_DB} ; 


-- Exception Constraint translations. 


-- Other constraint option translations. 
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exception 
when BUFFER_CVEPRFLOW => 


DS_DEBUS. BUFFER_CVEPFLOW( "ALERTS_MESSAGE DB_PESCLVE_ALEPTS", "“UPDATE_MSGS"}) ; 


end; 
begin 


DS_ALERTS_MESSAGE_DB_UPDATE_MSGS . BUFFER .WRITE {LVY_ALERTS_MESSAGE_DB) ; 


exception 
when BUFFER_CVEPFLOW => 


DS_DEBUG. BUFFER_CVERFLOW( "“ALERTS_MESSAGE_DB_UPDATE_MSGS", "UPDATE_MSGS"} ; 


end; 
end if; 


~~ PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG . UNHANDLED_EXCEPTION ( 
“UPDATE_MSGS", 
PSDL_EXCEPTION’ IMAGE{ EXCEPTION_ID)) ; 
end if; 
end UPDATE_MSGS_DRIVEP;; 


procedure FTP_PROCESSOR_IN_DPIVER is 
LV_FTP_IN : MESSAGE_PKG.MESSAGE; 
LV_FTP_MSG_IN : MESSAGE _PKG.MESSAGE; 


EXCEPTION_HAS_OCCUPRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 


-- Data stream reads. 
begin 
DS_FTP_IN_FTP_PROCESSOR_IN.BUFFER.READ(LV_FTP_IN) ; 
exception 
when BUFFER_UNDERFLOW => 


DS_DEBUG. BUFFEP_UNDERFLOW ("FTP_IN_FTP_PROCESSOPR_IN", "FTP_PROCESSOR_IN"); 


end; 


-- Execution tragqder Condition check. 
if True then 
begin 
FTP_PROCESSOR_IN({ 
FTP_IN => LV_FTP_IN, 
FTP_MSG_IN => LV_FTP_MSG_IN) ; 
exception 
when others => 
DS_DEBUG .UNDECLARED_EXCEPTION ("FTP_PROCESSOR_IN") ; 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_ EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
{ 
-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_FTP_MSG_IN_SERVER_THREAD_MANAGER. BUFFER .WRITE(LV_FTP_MSG-IN) ; 
exception 
when BUFFER OVERFLOW => 


DS_DEBUG . BUFFER_OVERFLOW( "FTP_MSG_IN_SERVER_THREAD_MANAGER", "FTP_PROCESSOR _ 


ti 
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-- PSDL Exception handler. 
if EXCEPTION_HAS OCCUPPED then 
DS_DEBUG. UNHANDLED_EXCEPTION { 
"“FTP_PROCESSOP_IN", 
PSDL_EXCEPTION’ IMAGE(EXCEPTISN_ID}};; 
end if; 
end FTP_PROCESSOP_IN_DPIVEP; 


procedure FTP_PROCESSOP_OUT_DRIVEP is 
LV_FTP_MSG_OUT : MESSAGE_PFG.MESSAGE; 
LV_FTP_OUT : MESSAGE_PKG.MESSAGE; 


EXCEPTION_HAS_OCCURPED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 


-- Data stream reads. 
begin 


DS_FTP_MSG_OUT_FTP_PROCESSOR_OUT. BUFFER .READ(LY_FTP_MSG_OUT) ; 


exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG . BUFFER_UNDEPRFLOW( "FTP_MSG_OUT_FTP_PROCESSOR_OUT”, 
OUTS ¢ 
end; 


-- Execution trigger condition check. 
if True then 
begin 
FTP_PROCESSOR_OUT | 
FTP_MSG_OUT => LV_FTP_MSG_OUT, 
Eresoupe=s LYFTP OUT) ; 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION("FTP_PROCESSOR_OUT" ) ; 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


Exception Constraint translations. 
-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_FTP_OUT_NETWORK_INTERFACE_OUT. BUFFER .WRITE (LV_FTP_OUT) ; 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG. BUFFER_OVERFLOW ( "FTP_OUT_NETWORK_INTERFACE_OUT" 
SOUT") 
end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG.UNHANDLED_EXCEPTION ( 
“FT PRPROCESSOR.LOUT * ,; 
PSDL_EXCEPTION’ IMAGE (EXCEPTICON_ID) } ; 
end if; 
end FTP _PROCESSOR_OUT_DRIVER; 
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procedure HTTP_PROCESSOP_IN_DRIVER is 
LV_HTTP_IN) : MESSAGE_PKG.MESSAGE; 
LV_HTTP_MSG_IN : MESSAGE_PKG.MESSAGE; 


EXCEPTION _HAS_OCCURPED: BOOLEAN := FALSE; 
ECE Paron Ip: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 


-- Data stream reads. 
begin 
DS_HTTP_IN_HTTP_PROCESSOR_IN.BUFFER.READ(LV_HTTP_IN) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW ( "HTTP_IN_HTTP_PROCESSOR_IN", 


end; 


-- Execution trigger condition check. 
if True then 
begin 
HTTP_PROCESSOR_IN ( 
Hi Teewie=> LV_HTTPOIN, 
HTTP_MSG_IN => LV_HTTP_MSG_IN) ; 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION ("“HTTP_PROCESSOR_IN") ; 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 


begin 


exception 
when BUFFER_OVERFLOW => 


DS_DEBUG. BUFFER_OVERFLOW ( “HTTP_MSG_IN_SERVER_THREAD_MANAGER", 


R_IN"); 
end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG . UNHANDLED_EXCEPTION ( 
“HTTP_PROCESSOR_IN", 
PSDL_EXCEPTION’ IMAGE(EXCEPTION_ID) ) ; 
end if; 
end HTTP_PROCESSOR_IN_DRIVER; 


procedure HTTP_PROCESSOR_OUT_DRIVER is 
LV_HTTP_MSG_OUT : MESSAGE_PKG.MESSAGE; 
LV_HTTP_OUT : MESSAGE_PKG.MESSAGE; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-~ Data trigger checks. 


-- Data stream reads. 
begin 


“HETPe PROCESSOR IN”); 


DS_HTTP_MSG_IN_SERVER_THREAD_MANAGER. BUFFER .WRITE (LV_HTTP_MSG_IN) ; 


"HTTP_PROCESSO 


DS_HTTP_MSG_OUT_HTTP_PROCESSOP_SCUT. BUFFEP .READ{ LV_HTTP_MSG_OUT) ; 


exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFEP_UNPEPFLOW j “HTTP_MSG_cCUT_HTTP_PPOCESSCP_OUT", “HTTP_PROCESS 


OR_ GUT"7 
end; 


-- Execution trigger condition check. 
if True then 
begin 
HTTP_PROCESSOP_OUT ( 
HTTP_MSG_ OUT => LYV_HTTP_MSG_OUT, 
HETesoUT => LV HTTP_OUT) ; 
exception 


when others => 
DS_DEBUG.UNDECLARED_EXCEPTION ( "HTTP_PROCESSOR_OUT") ; 


EXGEPTION SHAS OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
SnGeik: 


-- Exception Constraint translations. 
-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_HTTP_OUT_NETWORK_INTERFACE_OUT.BUFFEP..WRITE(LV_HTTP_OUT) ; 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG . BUFFER_OVERFLOW ( 
“HTTP_OUT_NETWORK_INTERFACE_OUT", “HTTP_PROCESSOR_OUT") ; 
end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG . UNHANDLED_EXCEPTION { 
“HTTP PROCESSOR_OUT", 
PSDL_EXCEPTION’ IMAGE(EXCEPTION_ID) ); 
end if; 
end HTTP_PROCESSOR_OUT_DRIVER; 


procedure SMTP_PROCESSOR_IN_DRIVER is 
LV_SMTP_IN : MESSAGE_PKG.MESSAGE; 
LV_SMTP_MSG_IN : MESSAGE_PKG.MESSAGE; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEETIGCN SIDS EspL EXCEPTION; 
begin 
-~- Data trigger checks. 


-- Data stream reads. 
begin 
DS_SMTP_IN_SMTP_PROCESSOR_IN.BUFFER.READ(LV_SMTP_IN) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW ("SMTP_IN_SMTP_PROCESSOR_IN", 


end; 


-- Execution trigger condition check. 
if True then 
begin 


130 


°*SMTP_PROCESSOR_IN*® 


-caps/SAAWC/1.1/SAAWC.b Tue Sep 16 07:09:26 1997 16 


161 


SMTP_PROCESSOP_ II { end if; 
SMTP_ItN => LV_SMTP_IN, 
SMTP_MSG_IN => LY_SMTP_MSG_IN) ; -- Exception Constraint translations. 
exception 
when others => -- Other constraint option translations. 
DS_DEBUG . UNDECLARED_EXCEPTION ( "SMTP_PPCCESSOPR_IN"); 
EXCEPTION_HAS_OCCURRED := true; --Unconditional output translations. 
EXCEPTICN_ID := UNDECLAPED_ADA_EXCEPTION; if not EXCEPTION_HAS_OCCUPPRED then 
end; begin 
else return; DS_SMTP_OUT_NETWOPK_INTEPFACE_OUT. BUFFER .WRITE: LY _SMTP_OUT) ; 
end if; exception 
when BUFFER_OVEPFLOW => 
-- Exeeption Constraint trans! ations. DS_DEBUG. BUFFER_OVERFLOW({ "“SMTP_OCUT_NETWORK_INTEPFACE_OUT", "SMTP_PROCESS 
OR_OUT"); 
-- Other constraint option translations. end; 
end if; 
-~-Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then -- PSDL Exception handler. 
begin if EXCEPTION_HAS_OCCURRED then 
DS_SMTP_MSG_IN_SERVER_THPEAD_MANAGEP.. BUFFER .WRITE(LV_SMTP_MSG_IN) ; DS_DEBUG . UNHANDLED_EXCEPTION ( 
exception Wavere PROCESSOR OUT", 
when BUFFER_OVERFLOW => PSDL_EXCEPTION’ IMAGE (EXCEPTION_ID) ) ; 
DS_DEBUG . BUFFER_OVERFLOW( “SMTP_MSG_IN_SERVER_THREAD_MANAGER", “SMTP_PROCESSO end if; 
R_IN"); end SMTP_PROCESSOR_OUT_DRIVER; 
end; 
end if; 
procedure SNMP_PROCESSOR_IN_DRIVER is 
-- PSDL Exception handler. LV_SNMP_IN : MESSAGE PKG.MESSAGE; 
if EXCEPTION_HAS_OCCURRED then LV_SNMP_MSG_IN : MESSAGE_PKG.MESSAGE; 
DS_DEBUG .UNHANDLED_EXCEPTION | 
“SMTP_PPOCESSOR_IN", EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
PSDL_EXCEPTION’ IMAGE (EXCEPTION_ID) ) ; EXCEPTION_ID: PSDL_EXCEPTION; 
end if; begin 
end SMTP_PROCESSOR_IN_DRIVER; -- Data trigger checks. 
~- Data stream reads. 
procedure SMTP_PROCESSOR_OUT_DRIVER is begin 
LV_SMTP_MSG_OUT : MESSAGE_PKG.MESSAGE; DS_SNMP_IN_SNMP_PROCESSOR_IN. BUFFER .READ(LV_SNMP_IN) ; 
LV_SMTP_OUT : MESSAGE_PKG.MESSAGE; exception 
when BUFFER_UNDERFLOW => 
EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; DS_DEBUG. BUFFER_UNDERFLOW ("SNMP_IN_SNMP_PROCESSOR_IN“, “SNMP_PROCESSOR_IN" 
EXCEPTION_ID: PSDL_EXCEPTION; a 
begin end; 


-- Data trigger checks. 
-- Execution trigger condition check. 


-- Data stream reads. if True then 
begin begin 
DS_SMTP_MSG_OUT_SMTP_PROCESSOR_OUT. BUFFER .READ(LV_SMTP_MSG_OUT) ; SNMP_PROCESSOR__ IN ( 
exception SNMP_IN => LV_SNMP_IN, 
when BUFFER_UNDERFLOW => SNMP_MSG_IN => LV_SNMP_MSG_IN) ; 
DS_DEBUG . BUFFER_UNDERFLOW ("SMTP_MSG_OUT_SMTP_PROCESSOR_OUT", “SMTP_PROCESSOR_O exception 
UT"); when others => 
end; DS_DEBUG . UNDECLARED_EXCEPTION ("SNMP_PROCESSOR_IN") ; 
EXCEPTION_HAS_OCCURRED := true; 
Execution trigger condition check. EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
if True then end; 
begin else return; 
SMTP_PROCESSOR_OUT ( end if; 
SMTP_MSG_OUT => LV_SMTP_MSG_OUT, 
SMTP_OUT => LV_SMTP_OUT) ; - Exception Constraint translations. 
exception 
when others => -- Other constraint option translations. 
DS_DEBUG . UNDECLARED_EXCEPTION ( “SMTP_PROCESSOR_OUT") ; 
EXCEPTION_HAS_OCCURRED := true; --Unconditional output translations. 


EXCEPTION ID ie UNDECLARED_ADA_EXCEPTION; if not EXCEPTION_HAS_OCCUPRED then 
end; begin 
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exception 
when BUFFER_OVEPRFLOW => 
DS_DEBUG. BUFFEP_OVEPFLOW{ "SNMP_MSG_IN_SERVER_THREAD_MANAGER", "“SNMP_PROCESSO 
Rois"): 
end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_CCCURRED then 
DS_DEBUG.UNHANDLED_EXCEPTION ( 
“SNMP_PROCESSOP._IN", 
PSDL_EXCEPTION’ IMAGE (EXCEPTION_ID) ) ; 
end if; 
end SNMP_PROCESSOR_IN_DRIVER; 


procedure SNMP_PROCESSOR_OUT_DRIVER is 
LV_SNMP_MSG_OUT MESSAGE_PKG .MESSAGE; 
LV_SNMP_OUT : MESSAGE _PKG.MESSAGE; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 
-- Data stream reads. 
begin 
DS_SNMP_MSG_OUT_SNMP_PROCESSOR_OUT.BUFFER.READ(LV_SNMP_MSG_OUT) ; 
exception 


when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW ("SNMP_MSG_OUT_SNMP_PROCESSOR_OUT", "SNMP_PROCESSOR_O 
Ur : 


end; 


-- Execution trigger condition check. 
if True then 

begin 

SNMP_PROCESSOR_OUT ( 
SNMP_MSG_OUT => LV_SNMP_MSG_OUT, 
SNMP_OUT => LV_SNMP_OUT); 

exception 
when others => 

DS_DEBUG. UNDECLARED_EXCEPTION (*SNMP_PROCESSOR_OUT'") ; 


EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


-~- Exception Constraint translations. 
-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_SNMP_OUT_NETWORK_INTERFACE_OUT.BUFFER.WRITE(LV_SNMP_OUT) ; 
exception 
when BUFFER_OVERFLOW => 


DS_DEBUG . BUFFER_OVERFLOW ( "SNMP_OUT_NETWORK_INTERFACE_OUT", "SNMP_PROCESSOR_O 


ULE 
end if; 
-- PSDL Exception handler. 


if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG . UNHANDLED_EXCEPTION ( 


"SNMP_PROCESSOP_CUT", 
PSDL_EXCEPTION’ IMAGE(| EXCEPTICN_ID} ; ; 
end if; 
end SNMP_PROCESSOR_OUT_DPIVERP; 


procedure UDP_PROCESSOR_IN_DRIVER is 
LV_UDP_IN MESSAGE_PKG .MESSAGE; 
LV_UDP_MSG_IN : MESSAGE_PKG.MESSAGE; 
EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 


~~ Data stream reads. 
begin 
DS_UDP_IN_UDP_PROCESSOR_IN.BUFFER.READ(LV_UDP_IN) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW("UDP_IN_UDP_PROCESSOR_IN", 


end; 


"UDP PROGCESSORTIA®}; 


-~ Execution trigger condition check. 
if True then 

begin 

UDP_PROCESSOR_IN( 
UDP_IN => LV_UDP_IN, 
UDP_MSG_IN => LV_UDP_MSG_IN); 

exception 
when others => 

DS_DEBUG . UNDECLARED_EXCEPTION ("UDP_PROCESSOR_IN") ; 


EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


Io 


-- Exception Constraint translations. 
-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_UDP_MSG_IN_SERVER_THREAD_MANAGER . BUFFER .WRITE(LV_UDP_MSG_IN) ; 
exception 
when BUFFER_OVERFLOW => 


DS_DEBUG. BUFFER_OVERFLOW( “UDP_MSG_IN_SERVER_THREAD_MANAGER", “UDP_PROCES 


SOR_IN")% 
end; 
end if; 


-~ PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG.UNHANDLED_EXCEPTION ( 
“UDP_PROCESSOR_IN", 
PSDL_EXCEPTION’ IMAGE(EXCEPTION_ID) ) ; 
end if; 
end UDP_PROCESSOR_IN_DRIVER; 


procedure UDP_PROCESSOR_OUT_DRIVER is 
LV_UDP_MSG_OUT MESSAGE_PKG. MESSAGE; 
LV_UDP_OUT : MESSAGE_PKG. MESSAGE; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
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EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 


-- Data stream reads. 
begin 


DS_UDP_HSG_=SUT_UDP_PROCESSOPR_OUT. BUFFEP..READ(LY_UDP_MSG_OUT; ; 


exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDEPRFLOW ("UDP_MSG_OUT_UDP_PROCESSOP_CUT", 


end; 


-- Execution trigger condition check. 
if True then 
begin 
UDP_PROCESSOR_OUT { 
UDP_MSG_OUT => LY_UDP_MSG_OUT, 
UDP_OUT => LV_UDP_OUT): 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION("UDP_PROCESSOR_OUT") ; 
EXCEPTION_HAS_OCCUPRED := true; 
EXCEPTION_ID := UNDECLARED_ADA EXCEPTION; 
end; 
else return; 
end if; 


~- Exception Constraint translations. 
-~ Other constraint option translations. 
--Unconditional output translations. 


if not EXCEPTION_HAS_OCCURRED then 
begin 


DS_UDP_OUT_NETWORK_INTERFACE_OUT. BUFFER .WRITE(LV_UDP_OUT) ; 


exception 
when BUFFER_OVERFLOW => 


DS_DEBUG. BUFFER_OVERFLOW ( "UDP_OUT_NETWORK_INTERFACE_OUT", 


Bes 
end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG . UNHANDLED_EXCEPTION ( 
"UDP PROCESSOR OUT", 
PSDL_EXCEPTION’ IMAGE(EXCEPTION_ID)); 
end if; 
end UDP_PROCESSOR_OUT_DRIVER; 


procedure NETWORK_INTERFACE_IN_DRIVER is 
LV_BITS_IN : BITS_PKG.BITS; 
LV_DATA_STR_IN : MESSAGE_PKG.MESSAGE; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data “trigger checks: 


-- Data stream reads. 
begin 
DS_BITS_IN_NETWOP. K_INTERFACE_IN.BUFFER.READ(LV_BITS_IN); 
exception 


when BUFFER_UNDEPRFLOW «=> 
Tie ins one 88 er ere re TB SORE eK wNd ww inl ew no ows a we we 
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SUDPSPPOCESSOR OUT" 


"“UDP_PROCESSOR_OUT 


Nios 
end; 


-- Execution Urigger condition check. 
if True then 
begin 
NETWORK_INTERFACE_IN\ 
Beicoln =>  LVIBiise ti, 
DATA_STR_IN => LV_DATA_STP_IN) ; 
exception 
when others => 
DS_DEBUG .UNDECLAPED_EXCEPTION ("NETWORK_INTERFACE_IN") ; 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLAPED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 
--Unconditional output translations. 


if not EXCEPTION_HAS_OCCURRED then 
begin 


DS_DATA_STR_IN_SESSTION_MANAGER. BUFFER .WRITE(LV_DATA_STR_IN)} ; 


exception 
when BUFFER_OVERFLOW => 
DS_DEBUG. BUFFER_OVERFLOW( "DATA_STR_IN_SESSION_MANAGER", 
CELINE 
end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_ OCCURRED then 
DS_DEBUG . UNHANDLED_EXCEPTION { 
"NETWORK_INTERFACE_IN", 
PSDL_EXCEPTION’ IMAGE (EXCEPTION_ID)); 
end if; 
end NETWORK_INTERFACE_IN_DRIVEP; 


procedure NETWORK_INTERFACE_OUT_DRIVER is 
LV_FTP_OUT : MESSAGE_PKG.MESSAGE; 
LV_HTTP OUT MESSAGE_PKG.MESSAGE; 
LV_SMTP_OUT MESSAGE_PKG.MESSAGE; 
LV_SNMP_OUT MESSAGE_PKG.MESSAGE; 
LV_UDP_OUT : MESSAGE_PKG.MESSAGE; 
LV_BITS_OUT : BITS_PKG.BITS; 


EXCEPTION _HAS_OCCURREC:: Bi LEAN : ia: 
EACERTIOULTO: PS, ES teiimite i: 

begin 

Data trigger checks. 


-- Data stream reu lw. 
begin 
DSSETP_OUT Ua icin: 2 eet 
exception 
when BUFFER_UNDERFLCW = >» 
DS_DEBUG. BUFFER_UNDER FL. ( "FT RQ UTNE Ii kt 
ACE_OUT"); 
end; 
begin 
DS_HTTP_OUT_NETWORK_INTERFACE _OUT.BUFFER.READ(LV_HTTP_OUT) ; 
CXGCeordion 


LUTEREAT EE oUt” 


"NETWORK_INTERFA 


ig2 


"NETWORK_INTERF 





GUT SG 
end; 
begin 
DS_SMTP_CUT_NETWOPK_INTERFACE_OUT.BUFFEP..READ (LV_SMTP_OUT) ; 
exception 
when BUFFER_UNDERFLOVW => 
DS_DEBUG. BUFFER_UNDERFLC#l ("SMTP_OUT_NETWORK_INTERFACE_CUT", 
Ours 
end; 
begin 
DS_SNMP_OUT_NETWOPK_INTERFACE_OUT.BUFFER.READ(LV_SNMP_OUT) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW ("SNMP_OUT_NETWORK_INTERFACE_OUT", 
OUT"): 
end; 
begin 
DS_UDP_OUT_NETWORK_INTEPRFACE_OUT. BUFFER .READ(LV_UDP_OUT) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW (“UDP_OUT_NETWORK_INTERFACE_OUT", 
OUTAda: 


end; 


-- Execution trigger condition check. 
if True then 
begin 
NETWORK_INTERFACE_ OUT ( 
ETP_OUT => LY_FTP_OUT, 
HTP OUT =S2bVanhTTesourT, 
SMTP2OUT => LVoSHTPSOUL, 
SNMP_OUT => LV_SNMP_OUT, 
UDPSOuUT => EVAUbeaouT., 
BrTceoul => LVZBITS CUry, 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION ("NETWORK_INTERFACE_OUT") ; 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
ena; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS OCCURRED then 
begin 
DS_BITS_OUT_NETWORK . BUFFER .WRITE(LV_BITS_OUT) ; 
exception 
when BUFFER_OVERFLOW => 


LA 
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DS_DEBUG. BUFFER_UNDERFLOW ( "HTTP_OUT_NETWORK_INTERFACE_OUT", 





*“NETWORK_INTERFACE 


“NETWORK_INTERFACE 
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“NETWORK_INTERFACE 


DS_DEBUG . BUFFER_OVERFLOW (“BITS_OUT_NETWORK", “NETWORK_INTERFACE_OUT") ; 


end; 
end if; 


~~ PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG . UNHANDLED_EXCEPTION ( 
“NETWORK_INTERFACE_OUT", 
PSDL_EXCEPTION’ IMAGE (EXCEPTION_ID)); 
end if; 
end NETWORK_INTERFACE_OUT_DRIVER; 


4g 





procedure SESSION_MANAGEP_DPIVER is 
LV_DATA_STR_IN : MESSAGE _PKG.MESSAGE; 
LV_SESSION_DATA MESSAGE_PKG .MESSAGE; 
LY_FTP_IN : MESSAGE_PKG.MESSAGE; 
LV_FTP_MSG_OUT : MESSASE_PKG.MESSAGE; 
LV_HTTP_IN : MESSAGE _PKG.MESSAGE; 
LY_HTTP_MSG_OUT : MESSAGE_PKG.MESSAGE; 
LY_SMTP_IN MESSAGE_PKG.MESSAGE; 
LV_SMTP_MSG_OUT : MESSAGE_PKG.MESSAGE; 
LV_SWMP_IN : MESSAGE _PKG.MESSAGE; 
LV_SNMP_MSG_OUT : MESSAGE_PKG.MESSAGE; 
LV_UDP_IN : MESSAGE _PKG.MESSAGE; 
LV_UDP_MSG_OUT MESSAGE_PKG.MESSAGE; 
LV_SESSION_CONTROL : MESSAGE PKG.MESSAGE; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXGEPTION_ID: PSDL_ EXCEPTION; 
begin 
-- Data trigger checks. 


-- Data stream reads. 
begin 
DS_DATA_STR_IN_SESSION_MANAGER. BUFFER..READ(LV_DATA_STR_IN) ; 
exception 
when BUFFER_UNDERFLOW => 


DS_DEBUG . BUFFER_UNDERFLOW ("DATA_STR_IN_SESSION_MANAGER", "SESSION_MANAGER" 


end; 
begin 


DS_SESSION_CONTROL_SESSION_MANAGER . BUFFER. .READ(LV_SESSION_CONTROL) ; 


exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG . BUFFER_UNDERF LOW ( 
"SESSION_CONTROL_SESSION_MANAGER", "“SESSION_MANAGER") ; 
end; 
begin 
DS_SESSION_DATA_SESSION_MANAGER . BUFFER . READ (LV_SESSION_DATA) ; 
exception 
when BUFFER_UNDERFLOW => 
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DS_DEBUG. BUFFER_UNDERFLOW ("SESSION_DATA_SESSION_MANAGER", “SESSION_MANAGER 


a 


end; 


-- Execution trigger condition check. 
if True then 
begin 
SESSION_MANAGER ( 
DATA_STR_IN => LV_DATA_STR_IN, 
SESSION_DATA => LV_SESSION_DATA, 
FIPSIN => LV_FTP_IN, 
FTP_MSG_OUT => LV_FTP_MSG_OUT, 
HET Psin => LV OATTP_IN, 
HTTP_MSG_OUT => LV_HTTP_MSG_OUT, 
SMETPSIN => (bv _SMTP_IN; 
SMTP_MSG_OUT => LV_SMTP_MSG_OUT, 
SNMP_IN => LV_SNMP_IN, 
SNMP_MSG_OUT => LV_SNMP_MSG_OUT, 
UDP_IN => LV_UDP_IN, 
UDP_MSG_OUT => LV_UDP_MSG_OUT, 
SESSION_CONTROL => LV_SESSION_CONTROL) ; 
exception 
when others => 
DS_DEBUG. UNDECLARED_EXCEPTION (| "SESSION_MANAGERP."} ; 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
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end if; 


Exception constraint translations. 


-- Other constraint option translations. 


-Unconditional output translations. 


a 


if not EXCEPTICN_HAS_OCCURRED then 
begin 
DS_FTP_IN_FTP_PROCESSOP_IN.BUFFER .WRITE(LV_FTP_IN); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG . BUFFER_OVERFLOW("FTP_IN_FTP_PROCESSOR_IN", 
end; 
end if; 
if not EXCEPTICN_HAS_OCCURRED then 
begin 
DS_FTP_MSG_OUT_FTP_PROCESSOR_OUT. BUFFEP. .WJRITE(LV_FTP_MSG_OUT) ; 
exception 
when BUFFEPR_OVERFLOW => 
DS_DEBUG . BUFFEPR_OVERFLOW ("FTP_MSG_OUT_FTP_PROCESSOR_OUT", 


"SESSION_MANAGER ") ; 


“SESSION_MANAGER" ) 


end; 
end if; 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_HTTP_IN_HTTP_PROCESSOR_IN.BUFFER.WRITE(LV_HTTP_IN)} ; 
exception 


when BUFFER_OVERFLOW => 
DS_DEBUG. BUFFER_OVERFLOW( "HTTP_IN_HTTP_PROCESSOR_IN", 
end; 
end if; 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_HTTP_MSG_OUT_HTTP_PROCESSOR_OUT. BUFFER .WRITE(LV_HTTP_MSG_OUT) ; 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG . BUFFER_OVERFLOW ( "HTTP_MSG_OUT_HTTP_PROCESSOR_OUT", 


"SESSTON_MANAGER" } ; 


"SESSION_MANAGER 


end; 
end:<rr: 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_SMTP_IN_SMTP_PROCESSOR_IN. BUFFER .WRITE(LV_SMTP_IN) ; 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG . BUFFER_OVERFLOW{ “SMTP_IN_SMTP_PROCESSOR_IN", 
end; 
end if; 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_SMTP_MSG_OUT_SMTP_PROCESSOR_OUT. BUFFER .WRITE(LV_SMTP_MSG_OUT) ; 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG. BUFFER_OVERFLOW( "SMTP_MSG_OUT_SMTP_PROCESSOR_OUT", 


"SESSION_MANAGER" ) ; 


"SESSTON_MANAGER 


end if; 
if not EXCEPTION_HAS OCCURRED then 
begin 
DS_SNMP_IN_SNMP_PROCESSOR_IN.BUFFER.WRITE(LV_SNMP_IN); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG. BUFFER_OVERF LOW ( "SNMP_IN_SNMP_PROCESSOR_IN", 
end; 
end if; 


2»; =z a ey at 


"SESSTON_MANAGER"“) ; 


ee ee ee 
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begin 
DS_SNMP_HSG_OUT_SNMP_PROTESSCR_CUT. BUFFER .WRITE(LY_SIHMP_MSG_CUT! ; 
exception 
when BUFFER_OVEPFLOW => 


DS_DEBUG. BUFFER_OVEPFLOW! “SNMP_MSG_OUT_SHNMP_PPOCESSOR_CUT", "SESSICII_MAN 


end if; 
if not EXCEPTION_HAS_OCCUPPEL then 
begin 
DS_UDP_IN_UDP_PROCESSOP_IN.BUFFER .WPITE(LY_UDP_IN}; 
exception 
when BUFFER_OVEPFLOW => 
DS_DEBUG . BUFFER_OVEPRFLOVW{ "UDP_IN_UDP_PROCESSOR_III", 
end; 
end if; 
if not EXCEPTION_HAS_OCCUPPED then 
begin 
DS_UDP_MSG_OUT_UDP_PROCESSOP_OUT. BUFFER .WPITE(LV_UDP_MSG_OUT) ; 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG . BUFFER_OVERFLOW ( "UDP_MSG_OUT_UDP_PROCESSOR_OUT", 


"SESS ION_MANAGER.") ; 


“SESS ION_MANAG 
ER") : 


end if; 
if not EXCEPTION_HAS_OCCUPRED then 
begin 
DS_SESSION_CONTROL_SESS ION_MANAGEP.. BUFFER .WRITE(LV_SESSION_CONTROL) ; 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG. BUFFER_OVEPFLCt( "SESSION_CONTROL_SESSICN_MANAGER", "SESSION_MAN 
AGER." } ; Ve) 
end; fom 


‘ 


end if; 


Sm 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG.UNHANDLED_EXCEPTION ( 
“SESSTION_MANAGER", 
PSDL_EXCEPTION’ IMAGE (EXCEPTION_ID) ); 
end if; 
end SESSION_MANAGER_DRIVER; 


procedure CORREL_HANDLE_QUERY_DRIVER is 
LV_CORREL_FILTER : TRACKS_PKG.TRACKS; 
LV_VALID_TRACKS : TRACKS_PKG.TRACKS; 
LV_RESPOND_VALID_TRACKS : TRACKS_PKG. TRACKS; 
EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 

EXCEPTION_ID: PSDL#EXCEPTION; 
begin 
-- Data trigger checks. 


-- Data stream reads. 
begin 
DS_CORREL_FILTER_CORREL_HANDLE_QUERY . BUFFER.READ(LV_CORREL_FILTER) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW ("CORREL_FILTER_CORREL_HANDLE_QUERY", 
DLE_QUERY ") ; 
end; 
begin 
DS_VALID_TRACKS_CORREL_HANDLE_QUERY . BUF FER.READ({LV_VALID_TRACKS) ; 
exception 
when BUFFER_UNDERFLOW => 


"CORREL_HAN 





LE_GUERY") ; 
end; 


-- Execution trigger condition check. 
if True then 
begin 
CORREL_HANDLE_ QUERY { 
SenPeGeri Ler => LY CORREL FILTER, 
VAGLoSTeACKS => LY VALID TRACKS; 
RESPOND_VALID_TRACKS => LV_RESPOND_VALID_TRACKS) ; 
exception 
when others => 
DS_DEBUG .UNDECLARED_EXCEPTION ("CORREL_HANDLE_QUERY") ; 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 
--Unconditional output translations. 


if not EXCEPTION_HAS_OCCURRED then 
begin 


DS_RESPOND_VALID_TRACKS_SERVER_THREAD_MANAGER . BUFFER .WRITE(LV_RESPOND_VALID_TR 


ACKS) ; 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG. BUFFER_OVERFLOW( "RES POND_VALID_TRACKS_SERVER_THREAD_MANAGER", 
EL_HANDLE_GQUERY ") ; 
end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG . UNHANDLED_EXCEPTION ( 
"CORREL_HANDLE_QUERY", 
PSDL_EXCEPTION’ IMAGE (EXCEPTION_ID) ); 
end if; 
end CORREL_HANDLE_QUERY_DRIVER; 


procedure CORREL_UPDATE_FILTER_DRIVER is 
LV_REQUEST_TRACKS : TRACKS_PKG.TRACKS; 
LV_CORREGSEILTER = TRACKS _PKG.TRACKS; 
LV_SUBSCRIBE_DB_CHANGES : DB_RECORD_PKG.DB_RECORD; 
LV_SUBSCRIBE_TRACKS : TRACKS_PKG.TRACKS; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 


-- Data stream reads. 
begin 
DS_CORREL_FILTER_CORREL_UPDATE_FILTER .BUFFER.READ(LV_CORREL_FILTER) ; 
exception 
when BUFFER_UNDERFLOW => 


DS_DEBUG . BUFFER_UNDERFLOW ( "CORREL_FILTER_CORREL_UPDATE_FILTER", "CORREL_UPDATE 


_FILTER”) ; 
end; 
begin 
DS_REQUEST_TRACKS_CORREL_UPDATE_FILTER. BUFFER .READ(LV_REQUEST_TRACKS) ; 
exception 
when BUFFER_UNDERFLOW => 


Peeve oUewsUPPer UNPERPoc. | PEJUEST TRACKS COPPEL_UPDATE_FILTEPR", “CORPEL U 


PDATE_FILTER") ; 
end; 


-- Execution trigger condition check. 
if True then 
begin 
CORPEG_UPDATE_F ILTERP { 
REQUEST_TRACKS => LV_REQUEST_TPACKS, 
CORREL_FILTER => LVY_COPRREL_FILTEP, 
SUBSCRIBE_DB_CHANGES => LV_SUBSCRIBE_DB_CHANGES, 
SUBSCRIBE_TRACKS => LV_SUBSCRIBE_TRACKS) ; 
exception 
when others => 
DS_DEBUG . UNDECLARED_EXCEPTION ("CORREL_UPDATE_FILTER"} ; 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 


-- Other constraint option translations. 
--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURPED then 
begin 
DS _CORREL FILTER CORREL_ HANDLE_OQUEPY.BUFFER .WRITE(LV_CORREL_FILTER) ; 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG. BUFFER_OVERFLOW( "CORREL_FILTER_CORREL_HANDLE_QUERY", “CORREL_UP 


DATE. Pier): iO 
end; cy 
begin = 

DS_CORREL_FILTER_CORREL_UPDATE_FILTER.BUFFER.WRITE (LV_CORREL_FILTER) ; 
exception 


when BUFFER_OVERFLOW => 
DS_DEBUG .. BUFFER_OVERFLOW( "“CORREL_FILTER_CORREL_UPDATE_FILTER", “COPRREL_U 
PDATE_FILTER") ; 
end; 
end if; 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_SUBSCRIBE_DB_CHANGES_SERVER_THREAD_MANAGER . BUFFER.WRITE(LV_SUBSCRIBE_DB 
CHANGES) ; 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG. BUFFER_OVERFLOW( "SUBSCRIBE_DB_CHANGES_SERVER_THREAD_MANAGER*®, *° 


CORREL_UPDATESFILTER® ); 


end; 
end if; 
if not EXCEPTION _HAS_OCCHUPFET t bei 
begin 
DS_SUBSCEIBE_TFs ‘F fp .er with: : t: SUBSCPRIBE,_TRACKS 
); 
exception 


when BUFFER , VLFic «. 
DS_DEBUS.BUEEEF ths, 
EL_UPDATE_FILTER") ; 
end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG.UNHANDLED_EXCEPTION ( 
“CORREL_UPDATE_FILTER", 
PSDL_EXCEPTION’ IMAGE (EXCEPTION_ID) ) ; 
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end if; 
erd CORREL_UPDATE_FILTEPR_DRIVER; 


procedure CORREL_UPDATE_TRACKS_DRIVER is 
LV_CS_DEL_TRACKS TRACKS_PKG. TRACKS; 
LV_CORREL_TPACK_DB : TRACKS_PKG.TPACKS; 
EXCEPTION_HAS_OCCURRED: BOCLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTICN; 
begin 
-~ Data trigger checks. 


-- Data stream reads. 
begin 
DS_CORREL_TRACK_DB_CORREL_UPDATE_TRACKS. BUFFEP.. READ (LV_CORREL_TRACK_DB); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG . BUFF ER_UNDERFLCW ( *CORREL_TRACK_DB_CORREL_UPDATE_ TRACKS", 
TE_TRAGKS"); 
end; 
begin 
DS_CS_DEL_TRACKS_CORREL_UPDATE_TRACKS . BUFFER. READ (LV_CS_DEL_TRACKS) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG . BUFFER_UNDERFLOW ("CS_DEL_TRACKS_CORREL_UPDATE_TRACKS", "CORREL_UPDATE 
_TRACKS") ; 
end; 


"“CORREL_UPDA 


-- Execution trigger condition check. 
if True then 
begin 
CORREL_UPDATE_TRACKS ( 
CS_DEL_TRACKS => LV_CS_DEL_TRACKS, 
CORREL_TRACK_DB => LV_CORREL_TRACK_DB) ; 
exception 
when others => 
DS_DEBUG . UNDECLARED_EXCEPTION ("“CORREL_UPDATE_TRACKS") ; 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED _ADA_EXCEPTION; 
end; 
else return; 
end if; 


~- Exception Constraint translations. 
-- Other constraint option translations. 


~-Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_CORREL_TRACK_DB_CORRELATE_TRACKS . BUFFER .WRITE(LV_CORREL_TRACK_DB) ; 
exception 
when BUFFER_OVERFLOW => ‘ 
DS_DEBUG . BUFFER_OVERF LOW ( "CORREL_TRACK_DB_CORRELATE_TRACKS", "“CORREL_UPDATE __ 
TRACKS"); 
end; 
begin 
DS_CORREL_TRACK_DB_CORREL_UPDATE_TRACKS . BUFFER . WRITE (LV_CORREL_TRACK_ DB) ; 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG . BUFFER_OVERFLOW ( "CORREL_TRACK_DB_CORREL_UPDATE_TRACKS", 
ATE_TRACKS"} ; 
end; 
end if; 


“CORREL_UPD 
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if EXCEPTION_HAS_CCCUPPED then 
DS_DEBUG .UNHANDLED_EXCEPTI21. 
"CORREL_UPDATE_TRACKS", 
PSDL_EXCEPTION’ IMAGE: EXCEPTICN_ID}:; 
end if; 
end CORREL_UPDATE_TRACKS DPIVEP; 


procedure CORPELATE_TRACKS_DRIVER is 
LV_CORREL_RECORD_DB : DB_RECORD_PKS.DB_PECOPD; 
LV_CORREL_TRACK_DB TRACKS_PKG.TPACKS; 
LV_VALID_TRACKS TRACKS_PKG. TRACKS; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 


-- Data stream reads. 
begin 
DS_CORREL_RECORD_DB_CORRELATE_TRACKS. BUFFEP..READ(LV_CORPFI_RECORD_DB) ; 
exception 
when BUFFER_UNDERFLOW => 


DS_DEBUG . BUFFER_UNDERFLOW ("CCRREL_RECORD_DB_CORRELATE_TRACKS", "“CORRELATE_ 


TRACKS ye 
end; 
begin 
DS_CORREL_TRACK_DB_CORRELATE_TRACKS . BUFFER. READ (LV_CORREL_TRACK_DB) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG . BUFFER_UNDERFLOW ( "CORREL_TPACK_DB_CORRELATE_TRACKS", "CORRELATE_T 
RACKS"); 
end; 


138 


-- EXe€CuEIcmetrigger condition check. 
if True then 

begin 

COP RELATE_TRACKS ( 
CORREL_RECORD_DB => LV_CORREL_RECORD_DB, 
CORREL_TRACK_DB => LV_CORREL_TRACK_LB, 
VALID_TRACKS => LV_VALID_TRACKS); 

exception 
when others => 

DS_DEBUG . UNDECLARED_EXCEPTION ("CORRELATE_TRACKS'") ; 


EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


~- Exception Constraint translations. 
-» Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_VALID_TRACKS_CORREL_HANDLE_QUERY . BUFFER.WRITE(LV_VALID_TRACKS) ; 
exception 
when BUFFER_OVERFLOW => 


DS_DEBUG . BUFFER _OVERFLOW( "VALID_TRACKS_CORREL_HANDLE_QUERY", "CORRELATE_ 
TRACKS"); 
end; 


end if; 
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DS_DEBUG. UNHANDLED_EXCEPTION 
" COPRELATE_TRACKS", 
PSDL_EXCEPTICN’ IMAGE {| EXCEPTION_ID) ) ; 
end if; 
end CORPELATE_TPRACKS_DPIVEP; 


procedure UPDATE_TACTICAL_DB_DPRIVER is 
LV_PESPOND_DB_CHANGE : DB_RECOPD_PKG.DB_PECORD; 
LV SCOPRBEEEPECORD PB = DB RECORD UPKG.DBoPECOED; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := 
EXCEPTION@ID= PSDL_EXCEPTIGN: 
begin 
-- Data trigger checks. 


FALSE; 


-- Data stream reads. 
begin 
DS_COPREL_RECCRD_DB_UPDATE_TACTICAL_DB. BUFFER .PEAD(LV_CORREL_RECORD_DB) ; 
exception 
when BUFFER_UNDERFLOW => 


DS_DEBUG . BUFFER_UNDEP.FLOW ( "CORREL_RECORD_DB_UPDATE_TACTICAL_DB", “UPDATE_TACTI 


CAL DB}; 
end; 
begin 
DS_RESPCND_DB_CHANGE_UPDATE_TACTICAL_DB. BUFFER. READ (LV_RESPOND_DB_CHANGE) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFEPR_UNDERFLOW ("PESPOND_DB_CHANGE_UPDATE_TACTICAL_DB", “UPDATE_TACT 
TCAL_DB*)}e 
end; 


-- Execution trigger condition check. 
if True then 
begin 
UPDATE_TACTICAL_DB( 
RESPOND_DB_CHANGE => LV_RESPOND_DB_CHANGE, 
CORREL_RECORD_DB => LV_CORREL_RECORD_DB) ; 
exception 
when others => 
DS_DEBUG. UNDECLARED_EXCEPTION ( “UPDATE_TACTICAL_DB") ; 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


~- Exception Constraint translations. 
-~ Other constraint option translations. 


--Unconditional output translations. 
bE not EXCEPTION HAS OCCURRED then 
begin 
DS_CORREL_RECORD_DB_CORRELATE_TRACKS. BUFFER .WRITE (LV_CORREL_RECORD_DB) ; 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG. BUFFER_OVERFLOW( "CORREL_RECORD_DB_CORRELATE_TRACKS", "UPDATE_TACTIC 


AL_DE*) 
end; 
begin 
DS_CORREL_RECORD_DB_UPDATE_TACTICAL_DB. BUFFER .WRITE (LV_CORREL_RECORD_DB) ; 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG. BUFFER_OVERF LOW ( "CORREL_RECORD_DB_UPDATE_TACTICAL_DB", "“UPDATE_TACT 
ICAL_DB"} ; 


end; 





= —_—_ 


end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCUPRED then 
DS_DEBUG.UNHANDLED_EXCEPTICN { 
"OPDATE<TACTICAL_DB”, 
PSDL_EXCEPTION’ IMAGE | EACEPTION_ID} }; 
end if; 
end UPDATE_TACTICAL_DB_DPIVEBR ; 


procedure ADD_FILE_DRIVER is 
LV_REQ_ADD_FILE : DB_PRECORD_PKG.DB_RECOPD; 
LV_FILE_ADD_DB DB_PECORD_PKG.DB_RECOP.D; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 


FALSE; 


-- Data stream reads. 
begin 
DS_FILE_ADD_DB_ADD_FILE. BUFFER. READ (LV_FILE_ADD_DB) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW("FILE_ADD_DB_ADD_FILE", 
end; 
begin 
DS_REQ_ADD_FILE_ADD_FILE. BUFFER .READ(LV_REQ_ADD_FILE) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW ("REQ_ADD_FILE_ADD_FILE", 
"ADDO ETEE 2 )c; 
end; 


[AUD EILES I. 


-- Execution trigger condition check. 
if True then 
begin 
ADD_FILE ( 
REOLADD FILE => LV_REQ_ADD_FILE, 
FILE_ADD_DB => LV_FILE_ADD_DB) ; 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION ("ADD_FILE") ; 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_FILE_ADD_DB_ADD_FILE.BUFFER.WRITE(LV_FILE_ADD_DB) ; 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG. BUFFER_OVERFLOW ("FILE_ADD_DB_APD_FILE", 
end; 
begin 
DS_FILE_ADD_DB_FORMAT_RESPONSE. BUFFER .WRITE(LV_FILE_ADD_DB) ; 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG . BUFFER_OVERFLOW ( “FILE_ADD_DB_FORMAT_RESPONSE™", 


*ADD_FILE"); 
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end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG . UNHANDLED_EXCEPTION | 
"ADD_FILE", 
PSDL_EXCEPTION’ IMAGE (EXCEPTION_ID) ) ; 
end if; 
end ADD_FILE_DRIVER; 


procedure ADD_OBJECT_DRIVER is 
LV_REQ_ADD_OBJ DB_RECORD_PKG.DB_RECORD; 
LV_OBJ_ADD_DB : DB_RECORD_PKG.DB_RECORD; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 


-- Data stream reads. 
begin 
DS_OBJ_ADD_PB_ADD_OBJECT.BUFFER.READ({LV_OBJ_ADD_DB) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW {"OBJ_ADD_DB_ADD_OBJECT", "ADD_OBJECT"); 
end; 
begin 
DS_REO_ADD_OBJ_ADD_OBJECT. BUFFER. READ ({LV_REO_ADD_OBJ) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG . BUFFER_UNDERFLOW ("REQ _ADD_OBJ_ADD_OBJECT", "ADD_OBJECT"} ; 
end; 


-- Execution trigger condition check. 
if True then 
begin 
ADD_OBJECT ( 
REQO_ADD_OBJ => LV_REQ_ADD_OBJ, 
OBJ_ADD_DB => LV_OBJ_ADD_DB); 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION{"ADD_OBJECT"}) ; 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
Other constraint option translations. 


~--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_OBJ_ADD_DB_FORMAT_RESPONSE. BUFFER.WRITE(LV_OBJ_ADD_DB) ; 
exception 
when BUFFER_OVERFLOW => 


DS_DEBUG . BUFFER_OVERF LOW ( “OBJ_ADD_DB_FORMAT_RESPONSE", "ADD_OBJECT"); 


end; 
begin 
DS_OBJ_ADD_DB_ADD_OBJECT. BUFFER .WRITE(LV_OBJ_ADD_DB) ; 
exception 
when BUFFER_OVERFLOW => 
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end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCUFRED then 
DS_DEBUG . UNHANDLED_EXCEPTION ( 
"ADDZOBJIECT", 
PSDDSEXCEP TION IMAGE(EXCEPTION_ID)); 
end if; 
end ADD_OBJECT_DRIVER; 


procedure ADD_RECORD_DRIVER is 
LV_REOQ_ADD_REC : DB_RECORD_PKG.DB_RECORD; 
LV_REC_ADD_DB : DB_RECORD_PKG.DB_RECORD; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-~- Data trigger checks. 


-- Data stream reads. 
begin 
DS_REC_ADD_DB_ADD_RECORD. BUFFER .READ({LV_REC_ADD_DB) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG . BUFFER_UNDERFLOW("REC_ADD_DB_ADD_RECORD", "ADD_RECORD") ; 
end; 
begin 
DS_REQ_ADD_REC_ADD_RECORD.BUFFER.READ(LV_REQ_ADD_PREC) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW("REQ_ADD_REC_ADD_RECORD", 
“ADD_RECORD") ; 
end; 


-- Execution trigger condition check. 
if True then 
begin 
ADD_RECORD ( 
REO_ADD_REC => LV_REO_ADD_REC, 
REC _ADDSpB => LV_REC ADD_DB); 
exception 
when others => 
DS_DEBUG . UNDECLARED_EXCEPTION (“ADD_RECORD"} ; 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_REC_ADD_DB_ADD_RECORD. BUFFER .WRITE (LV_REC_ADD_DB) ; 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG . BUFFER_OVERFLOW(“REC_ADD_DB_ADD_RECORD", “ADD_RECORD") ; 
end; 
begin 
DS_REC_ADD_DB_FORMAT RESPONSE. BUFFER .WRITE(LV_REC_ADD_DB) ; 
exception 
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DS_DEBUS. BUFFER_OVERFLOW( “REC_ADD_DB_FORMAT_PRESPONSE", “ADD_PECOP.D"); 
end if; 


-- PSDL Exception handler. 
if EXCEPTICN_HAS_OCCURPED then 
DS_DEBUG. UNHANDLED_EXCEPTION { 
LAetlesrEeCORD:, 
PSDL_EXCEPTION’ IMAGE (| EXCEPTION_ID) }; 
end if; 
end ADD_RECORD_DRIVER; 


procedure DELETE_FILE_DRIVER is 
LV_REOQ_ DEL FILE DB_RECORD_PKG.DB_RECORD; 
bve- ihe DEL Ds DB_RECORD_PKG.DB_RECORD; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEFTION; 
begin 
-- Data trigger checks. 


-- Data stream reads. 
begin 
DS_FPILE_DEL_DB_DELETE_FILE. BUFFER .READ(LV_FILE_DEL_DB) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_ DEBUG. BUFFER_UNDERFLOW ("FILE_DEL_DB_DELETE_FILE", “DELETE_FILE") ; 
end; 
begin 
DS_REQ_DEL_FILE_DELETE_FILE. BUFFER. READ (LV_REQ_DEL_FILE) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW ("REQ_DEL_FILE_DELETE_FILE", "“DELETE_FILE") ; 
end; 


-- Execution trigger condition check. 
if True then 
begin 
DELETE_FILE ( 
REGSDEL FILE => LV_REO_DEL_FILE, 
FILE_DEL_DB => LV_FILE_DEL_DB) ; 
exception 
when others => 
DS_DEBUG. UNDECLARED_EXCEPTION (“DELETE_FILE") ; 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


~~ Exception Constraint translations. 
-~ Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_ OCCURRED then 
begin 
DS_FILE_DEL_DB_DELETE_FILE. BUFFER .WRITE (LV_FILE_DEL_DB) ; 
exception 
when BUFFER_OVERFLOW => 
PS DEBUG. BUFFER OVERFLOW( “FILE DEL _DB_DELETE_FILE", “DELETE_FILE"); 
end; 
begin 
DS_FILE_DEL_DB_FORMAT_RES PONSE. BUFFER .WRITE (LV_FILE_DEL_DB) ; 
exception 
when BUFFER_OVERFLOW => 


i 
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DS_DEBUS. BUFFER_OVEPFLOW (| “FILE_DEL_DB_FOPRMAT_PESPONSE", "“DELETE_FILE") ; 
end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURPRED then 
DS_DEBUG.UNHANDLED_EXCEPTION | 
{DELETE-E ILE”, 
PSDL_EXCEPTION’ IMAGE (EXCEPTICN_ID)) ; 
end if; 
end DELETE_FILE_DRIVER; 


procedure DELETE_OBJECT_DRIVER is 
LV_REQ_DEL_OBJ DB_RECORD_PKG.DB_PECORD; 
LVY_OBJ_DEL_DB : DB_RECORD_PKG.DB_RECORD; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 


-- Data stream reads. 
begin 
DS_OBJ_DEL_DB_DELETE_OBJECT.BUFFER.READ (LV_OBJ_DEL_DB} ; 
exception 
when BUFFER_UNDERF'LOW => 
DS_DEBUG. BUFFER_UNDERFLOW ( "OBJ_DEL_DB_DELETE_OBJECT", 
*"DELETE=ORIECT) > 
end; 
begin 
DS_REQ_DEL_OBJ_DELETE_OBJECT. BUFFER .READ(LV_REQ_DEL_OBJ) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_ DEBUG. BUFFER_UNDERFLOW (“REQ_DEL_OBJ_DELETE_OBJECT", “DELETE_OBJECT") ; 
end; 
-- Execution trigger condition check. 
if True then 
begin 
DELETE_OBJECT ( 
REQ DEL_OBJ => LV_REQ_DEL_OBJ, 
OBJ_DEL_DB => LV_OBJ_DEL_DB) ; 
exception 
when others => 
DS_DEBUG . UNDECLARED_EXCEPTION ( “DELETE_OBJECT" ) ; 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


~- Exception Constraint translations. 
-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_OBJ_DEL_DB_DELETE_OBJECT. BUFFER .WRITE(LV_OBJ_DEL_DB) ; 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG. BUFFER_OVERFLOW( "OBJ_DEL_DB_DELETE_OBJECT*, “DELETE_OBJECT"}) ; 
end; 
begin 
DS_OBJ_DEL_DB_FORMAT_PESPONtSE.BUFFEP..WRITE( LY_OBJ_DEL_DB) ; 
exception 
when BUFFER_CVERFLOW => 
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DS_DEBUG. BUFFER_OVERFLOW ( "OBJ _DEL_DB_FOPRMAT_ RESPONSE", “DELETE_OBJECT"); 


end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_SCCUPRPRED then 
DS_DEBUG . UNHANDLED_EXCEPTION ( 
"DELETEAChI bel. 
PSDL_EXCEPTION’ IMAGE (EXCEPTION_ID) ) ; 
end if; 
end DELETE_OBJECT_DPIVER; 


procedure DELETE_RECORD_DRIVER is 
LV_REO2DELSREG = DB URECGRDEPKG. DB PECORD; 
LV_REC_DEL_DB DB_RPECORD_PKG.DB_RECORD; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXGCEPTION_ID: PSDL_EXCEPTION; 
begin 
-~- Data trigger checks. 


~- Data stream reads. 
begin 
DS_REC_DEL_DB_DELETE_RECORD. BUFFER .READ (LV_REC_DEL_DB) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.. BUFFER_UNDERFLOW ( "REC_DEL_DB_DELETE_RECORD*, “DELETE_RECORD") ; 
end; 
begin 
DS_REQ DEL_PREC_DELETE_PECOPD.BUFFEP .READ(LVY_PREQ_DEL_PE®) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG . BUFFER_UNDERFLOW { "PBEQ_DEL_REC_DELETE_RECOPD", "DELETE_RECORD") ; 
end; 


-- Execution trigger condition check. 
if True then 
begin 
DELETE_RECORD { 
REQ_DEL_REC => LV_REQ_DEL_REC, 
REC_DEL_DB => LV_REC_DEL_DB) ; 
exception 
when others => 
DS_DEBUG . UNDECLARED_EXCEPTION ("DELETE_RECORD") ; 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


-~ Exception Constraint translations. 
-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_REC2PEL_DB_DELETEZRECORDBUFFER.WRITE( LV -RECSDEDSDB) ; 
exception 
when BUFFER_OVERFLOW => : 
DS_ DEBUG. BUFFER_OVERFLOW (“REC_DEL_DB_DELETE_RECORD", “DELETE_RECORD") ; 
end; 
begin 
DS-PEC_DEL_DB_WFORMAT RESPONSE . BUFFER .WRITE ( LV_REC_DEL_DB) ; 
exception 
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DS_DEBUG. BUFFER_OVERFLOW( "REC_DEL_DB_FCPMAT_RESPOHSE", "“DELETE_PECORPD") ; 
end; 
end if; 


-- PSDL Exception handler. 


-- Data trigger checks. 


if EXCEPTION_HAS_OCCUPPED then 
DS_DEBUG .UNHANDLED_EXCEPTIO? | 
“DEUELE. PECOPD”, 
PSDL_EXCEPTION’ IMAGE(EXCEPTION_ID) ) ; 
end if; 
end DELETE_PECOPD_DRIVEP,; 


procedure FORMAT_RESPONSE_DRIVER is 
LV_FILE_ADD_DB DESRECORD PKG .DB_RECORD; 
LV_FILE_DEL_DB : DB_RECORD_PKG.DB_RECORD; 
LV_FILE_MOD_DB : DB_RECORD_PKG.DB_RECOPD; 
LV_FILE_RETR_MSG : DB_RECORD_PKG.DB_RECORPD; 
LV_OBJ_ADD_DB : DB_RECORD_PKG.DB_RECORD; 
LV_OBJ_DEL_DB DB_RECOPD_PKG.DB_RECOPD; 
LV_OBJ_MOD_DB : DB_RECORD_PKG.DB_RECORD; 
LV_OBJ_RETR_MSG DB_RECORD_PKG.DB_RECORD; 
LV_REC_ADD_DB : DB_RECORD_PKG.DB_RECORD; 
LV_REC_DEL_DB : DB_RECORD_PKG.DB_RECORD; 
LV_REC_MOD_DB : DB_RECORD_PKG.DB_RECORD; 
LV_REC_RETR_MSG DB_RECORD_PKG.DB_RECORD; 
LV_RESPOND_MSG : MESSAGE_PKG.MESSAGE; 


EXCEPTION_HAS_OCCUR.RED: BOCLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
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Data stream reads. 
begin 
DS_FILE_ADD_DB_FORMAT_RESPONSE. BUFFER .READ({ LV_FILE_ADD_DB) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW( "FILE_ADD_DB_FORMAT_RESPONSE", “FORMAT_RESPONSE" 


end; 
begin 
DS_FILE_DEL_DB_FORMAT_RESPONSE. BUFFER .READ(LV_FILE_DEL_DB) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW ("FILE_DEL_DB_FORMAT_RESPONSE", "FORMAT_RESPONSE” 


end; 
begin 
DS_FILE_MOD_DB_FORMAT_RESPONSE. BUFFER .READ(LV_FILE_MOD_DB) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUPFER_UNDERFLOW ("FILE_MOD_DB_FORMAT_RESPONSE", “FORMAT_RESPONSE" 


end; 
begin 
DS_FILE_RETR_MSG_FORMAT_RESPONSE. BUFFER .READ(LV_FILE_RETR_MSG) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW ("FILE_RETR_MSG_FORMAT_RESPONSE", "FORMAT_RESPONS 


E") ; 


end; 
begin 
DS_OBJ_ADD_DB_FORMAT_RESPONSE. BUFFER.READ (LV_OBJ_ADD_DB) ; 
exception 
when BUFFER_UNDERFLOW => 
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3 ; end; 
end; else return; 
begin end if; 
DS_CBJ_DEL_DB_FORMAT_PESPONSE.BUFFEP..READ (LVY_OBJ_DEL_DB) ; 
exception -~- Exception Constraint translations. 


when BUFFER_UNDERFLOW => 


DS_DEBUG. BUFFER_UNDERFLOW ("CBJ_DEL_DB_FOPRMAT_PESPONSE", "FOPRMAT_PRESPONSE" ) ; ~- Other constraint option translations. 


end; 
begin --Unconditional output translations. 
DS_OBJ_MOD_DB_FORMAT_RESPONSE .BUFFEPR.. 2£-.D (LV_OBJ_MOD_DB) ; if not EXCEPTION_HAS_CCCUPPED then ‘ 
exception begin 
when BUFFER_UNDERFLOW => DS_RESPOND_MSG_SERVEP._THREAD_MANAGER. BUFFER .WRITE(LV_RESPOND_MSG) ; 
DS_DEBUG . BUFFER_UNDERFLOW ("GBJ_MOD_DB_FORMAT_RESPONSE", "FORMAT_RESPONSE" ) ; exception 


end; when BUFFER_OVEPFLOW => 
DS_DEBUG. BUFFEP_OVEPFLOW( "RESPOND_MSG_SERVER_THPEAD_MANAGER", "POPRMAT_PE 


begin 
DS_OBJ_RETR_MSG_FORMAT_RESPONSE.BUFFER. READ (LV_OBJ_RETR_MSG) ; SPONSE") ; 
exception end; 
when BUFFER_UNDERFLOW => end if; 


DS_DEBUG.BUFFER_UNDERFLOW ("OBJ_RETR_MSG_FORMAT_RESPONSE", "FORMAT_RESPONSE"} ; 
end; -- PSDL Exception handler. 


begin if EXCEPTION_HAS_OCCURRED then 
DS_REC_ADD_DB_FORMAT_RESPONSE.BUFFER.READ(LV_REC_ADD_DB)} ; DS_DEBUG . UNHANDLED_EXCEPTION ( 
exception "“FORMAT_RESPONSE", 
when BUFFER_UNDERFLOW => PSDL_EXCEPTION’ IMAGE (EXCEPTION_ID) ) ; 
DS_DEBUG. BUFFER_UNDERFLOW ("REC_ADD_DB_FORMAT_RESPONSE", “FORMAT_RESPONSE") ; end if; 
end; end FORMAT_RESPONSE_DRIVER; 
begin 
DS_REC_DEL_DB_FORMAT_RESPONSE. BUFFER. READ (LV_REC_DEL_DB) ; 
exception procedure MOD_FILE_DRIVER is 


LV_REO MOD_FILE DB_RECORD_PKG .DB_RECOPD; 
LV_FILE_MOD_DB : DB_RECORD_PKG.DB_PRECORD; 


when BUFFEP_UNDERFLOW => 
DS_DEBUG . BUFFER_UNDERFLOW ("REC_DEL_DB_FORMAT_RESPONSE", "FORMAT_RESPONSE") ; 
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end; 

begin EXCEPTION _HAS_OCCURRED: BOOLEAN := FALSE; 
DS_REC_MOD_DB_FORMAT_RESPONSE. BUFFER. READ (LV_REC_MOD_DB) ; EXCEPTION_ID: PSDL_EXCEPTION; 

exception begin 


when BUFFER_UNDERFLOW => -- Data trigger checks. 


DS_DEBUG. BUFFER_UNDERFLOW ("REC_MOD_DB_FORMAT_RESPONSE", "FORMAT_RESPONSE") ; 


end; -~ Data stream reads. 
begin begin 

DS_REC_RETR_MSG_FORMAT_RESPONSE. BUFFER .READ(LV_REC_RETR_MSG) ; DS_FILE_MOD_DB_MOD_FILE.BUFFER. READ (LV_FILE_MOD_DB) ; 
exception exception 


when BUFFER_UNDERFLOW => 


when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW ("FILE_MOD_DB_MOD_FILE", "MOD_FILE") ; 


DS_DEBUG . BUFFER_UNDERFLOW ("REC_RETR_MSG_FORMAT_RESPONSE", "FORMAT_RESPONSE” ) ; 


end; end; 
begin 
-- Execution trigger condition check. DS_REQ_MOD_FILE_MOD_FILE. BUFFER .READ(LV_REQ_MOD_FILE) ; 
if True then exception 


when BUFFER_UNDERFLOW => 


begin 
DS_ DEBUG. BUFFER_UNDERFLOW ("REQ_MOD_FILE_MOD_FILE", "MOD_FILE"); 


FORMAT_RESPONSE ( 


FILE_ADD_DB => 
FILE_DEL_DB => 
FILE_MOD_DB => 


LV_FILE_ADD_DB, end; 


LV_FILESDEL_DB, 
LV_FILE_MOD_DB, 


-- Execution trigger condition check. 


if True then 
begin 
MOD_FILE { 
REQ _MOD_FILE => LV_REO_MOD_FILE, 
FILE_MOD_DB => LV_FILE_MOD_DB) ; 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION("MOD_FILE") ; 
EXCEPTION_HAS_ OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 


FILE_RETR_MSG => LV_FILE_RETR_MSG, 
OBJ_ADD_DB => LV_OBJ_ADD_DB, 
OBJ_DEL_DB => LV_OBJ_DEL_DB, 
OBJ_MOD_DB => LV_OBJ_MOD_DB, 
OBJ_RETR_MSG => LV_OBJ_RETR_MSG, 
REC_ADD_DB => LV_REC_ADD_DB, 
RECSDE LLU =p eb venee_ DEL.DS; 
REC _MOD_DB => LV_REC_MOD_DB, 
REC_RETR_MSG => LV_REC_RETR_MSG, 
RESPOND_MSG => LV_RESPOND_MSG) ; 
exception end; 
when others => else return; 
DS_DEBUG . UNDECLARED_EXCEPTION ("FORMAT_RESPONSE" } ; end if; 
EXCEPTION_HAS_OCCURRED := true; 


EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; -- Exception Constraint translations. 
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ther constraint option translations. 


~Unconditional output translations. 
if not EXCEPTION_HAS_CSCCUPRPRED then 
begin 
DS_FILE_MOD_DB_MOD_FILE.BUFFER.WRITE(LY_PILE_MOD_DB} ; 
exception 
when BUFFER_OVEPRFLOW => 
DS_ DEBUG: BUFFER OVERE LOW ZF ILE MCD_DB_MOD_FILE", “MOD_FILE"):; 
enay 
begin 
DS_FILE_MOD_DB_FORMAT_RESPONSE.BUFFEP .WRITE (LV_FILE_MOD_DB) ; 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG . BUFFER_OVERFLOW( "FILE_MOD_DB_FORMAT_RESPONSE", "“MOD_FILE") ; 
end; 
end if; 


~- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG . UNHANDLED_EXCEPTION ( 
“MODERIEE”; 
PSDL_EXCEPTION’ IMAGE (EXCEPTION_ID) ) ; 
end if; 
end MOD_FILE_DRIVER; 


procedure MOD_OBJECT_DRIVER is 
LV_PREQ_MOD_OBJ : DB_RECORD_PKG.DB_RECORD; 
LY_OBJ_MOD_DB DB_PRECORD_PKG.DB_RECORD; 


EXCEPTION_HAS_OCCURPRED: BOOLEAN := FALSE; 
EXCEPTIOM_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 


Data stream reads. 
begin 
DS_OBJ_MOD_DB_MOD_OBJECT. BUFFER .READ{LV_OBJ_MOD_DB) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW {"OBJ_MOD_DB_MOD_OBJECT", "“MOD_OBJECT") ; 


end; 
begin 
DS_REQ_MOD_OBJ_MOD_OBJECT. BUFFER. READ (LV_REQ_MOD_OBJ) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW (“REQ_MOD_OBJ_MOD_OBJECT", “MOD_OBJECT") ; 
end; 


-- Executiometrigger condition check. 
if True then 
begin 
MOD_OBJECT { ‘ 
REQ_MOD_OBJ => LV_REQ_MOD_OBJ, 
OBJ_MOD_DB => LV_OBJ_MOD_DB}); 
exception 
when others => 
DS_DEBUG. U{IDECLARED_EXCEPTION{ "MOD_OBJECT") ; 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 
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-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTICNIHAS OCCURRED then 
begin 
DS_OBJ_MOD_DB_FOPMAT_RESPONSE .BUFFER.WRITE( LY_OBJ_MOD_DB} ; 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG. BUFFER_OVERFLOW( "OBJ_MCD_DB_FORMAT_RESPONSE", “MOD_OBJECT"); 
end; 
begin 
DS_OBJ_MOD_DB_MOD_OBJECT. BUFFEP .WRITE (LV_OBJ_MOD_DB) ; 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW ( “OBJ_MOD_DB_MOD_OBJECT", "MOD_OBJECT"} ; 
end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG . UNHANDLED_EXCEPTION { 
*MODSOBIECT™, 
PSDL_EXCEPTION’ IMAGE (EXCEPTION_ID)); 
end if; 
end MCD_OBJECT_DRIVER; 


procedure MOD_RECORD_DRIVER is 
LV_REQ_MOD_REC : DB_RECORD_PKG.DB_RECORD; 
LV_REC_MOD_DB DB_RECORD_PKG.DB_RECORD; 


EXCEPTION_HAS_OCCURPED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 


-- Data stream reads. 
begin 
DS_REC_MOD_DB_MOD_RECORD. BUFFER .READ( LV_REC_MOD_DB) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW ("REC_MOD_DB_MOD_RECORD", "MOD_RECORD") ; 
end; 
begin 
DS_REQ_MOD_REC_MOD_RECORD. BUFFER. READ ({LV_REQ_MOD_REC) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW { "REQ_MOD_REC_MOD_RECORD", "“MOD_RECORD") ; 
end; 


-- Execution trigger condition check. 
if True then 
begin 
MOD_RECORD ( 
REQ_MOD_REC => LV_REQ_MOD_REC, 
REC_MOD_DB => LV_REC_MOD_DB) ; 
exception 
when others => 
DS_DEBUG. UNDECLARED_EXCEPTION {("MOD_RECORD"} ; 
EXCEPTION_HAS_OCCURRED := Crue; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


ne ee ee ee ee eT ee ee eer ee ee 
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-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_OCCCURRED then 
begin 
DS_REC_MOD_DB_MOD_RECORD. BUFFER .WRITE (LV_REC_MOD_DB) ; 
exception 
when BUFFER_OVERFLOW => 
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DS_DEBUG. BUFFER_OVERFLOW("“REC_MOD_DB_MOD_RECORD", "“MOD_RECORD") ; 


end; 
begin 


DS_REC_MOD_DB_FORMAT_RESPONSE. BUFFER.WRITE(LV_REC_MOD_DB) ; 


exception 
when BUFFER_OVERFLOW => 
DS_DEBUG. BUFFER_OVERFLOW( "REC_MOD_DB_FORMAT_RESPONSE", 
end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG . UNHANDLED_EXCEPTION ( 
-HODIRECORD', 
PSDL_EXCEPTION’ IMAGE (EXCEPTION_ID) ) ; 
end if; 
end MOD_RECORD_DRIVER; 


procedure RESOLVE_DATA_TYPE_DRIVER is 
LV_REQ_DATA : DB_RECORD_PKG.DB_RECORD; 
LV_REQ_DATA_TYPE : DB_RECORD_PKG.DB_RECORD; 


EXCEPTION HAS OCCURRED: BOOLEAN := FALSE; 
EXCEPTIONS ED: PSDERVEAGEPTION: 
begin 
-- Data trigger checks. 


-- Data stream reads. 
begin 
DS_REQ_DATA_RESOLVE_DATA_TYPE.BUFFER. READ {(LV_REQ_DATA) ; 
exception 
when BUFFER._UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW ("REQ DATA_RESOLVE_DATA_TYPE", 
end; 


~~ Execution trigger condition check. 
if True then 
begin 
RESOLVE_DATA_TY PE ( 
REQ_DATA => LV_REQ_DATA, 
REQ_DATA_TYPE => LV_REQ_DATA_TYPE) ; 
exception 
when others => 
DS_DEBUG. UNDECLARED_EXCEPTION ("RESOLVE_DATA_TYPE") ; 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 
--Unconditional output translations. 


if not EXCEPTION_HAS_ OCCURRED then 
begin 


"MOD_RECORD" ) ; 


"RESOLVE_DATA_TYPE* } ; 


29 


DS_REQ_DATA_TYPE_PESOLVE_PESUEST_TYPE.BUFFER .WiRITE(LVY_REQ_DATA_TYPE) ; 


exception 
when BUFFER_OVERFLOW => 


DS_DEBUG. BUFFEP._OVEPFLOW ("PES _DATA_TY PE_RESOLVE_PEQUEST_TYPE", 


DATA_Ty PE") ; 
end; 
ena if; 


-- PSDL Exception handler. 


if EXCEPTION_HAS_OCCURRED then 


DS_DEBUG. UNHANDLED_EXCEPTION ( 


"RESOLVE_DATA_TYPE", 


PSDL_EXCEPTION’ IMAGE (EXCEPTION_ID) ) ; 


end if; 
end RESOLVE_DATA_TYPE_DRIVER; 


procedure RESOLVE_REQUEST_TYPE_DRIVER is 


LV_REQ_DATA_TYPE : DB_RECORD_PKG.DB_RECORD; 
LV_REQ_ADD_FILE : DB_RECORD_PKG.DB_RECOPD; 


LV_REQ_ADD_OBJ : DB_RECORD_PKG.DB_RECORD; 
LV_REQ_ADD_REC : DB_RECORD_PKG.DB_RECORD; 


LV_REQLDELUFILE =; DB_RECORD_PKG.DB_RECORD; 


LV_REQ_DEL_OBJ : DB_RECORD_PKG.DB_RECORD; 
LVOREO SDEL_REC : DB_RECORD_PKG.DB_RECORD; 


LV_REQ_MOD_FILE : DB_RECORD_PKG.DB_RECORD; 


LV_REQ_MOD_OBJ : DB_RECORD_PKG.DB_RECORD; 
LV_REQ_MOD_REC : DB_RECORD_PKG.DB_RECORD; 


e 


LVIREQGSRETROFILE : DBLRECOPRD PKG.DB_RECORD; 
LV_REQ_RETR_OBJ : DB_RECORD_PKG.DB_RECORD; 
LV_ REQ RETR_REC +: DB_RECORD_PKG.DB_RECORD; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 


EXCEETION ID: PSDEZEACEPTION: 
begin 
~~ Data trigger checks. 


-- Data stream reads. 
begin 


"RESOLVE_ 
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DS_REQ_DATA_TYPE_RESOLVE_REQUEST_TY PE. BUFFER . READ (LV_REQ_DATA_TYPE) ; 


exception 
when BUFFER_UNDERFLOW => 


DS_DEBUG. BUPFER_UNDERFLOW ("REQ_DATA_TYPE_RESOLVE_REQUEST_TY PE", 


EQUEST_TYFE 4); 
end; 


-- Execution trigger condition check. 


if True then 
begin 
RESOLVE_REQUEST_TYPE ( 


REQ_DATA_TYPE => LV_REQ_DATA_TYPE, 


RE@=ADPeF ILE => LY_REO_ADD_FILE, 
REQ_ADD_OBJ => LV_REQ_ADD_OBJ, 
REQ_ADD_REC => LV_REOQ_ADD_REC, 
REG DEL UFILE => LV IREO _DEL_FILE, 
REQ_DEL_OBJ => LV_REQ_DEL_OBJ, 
REQ_DEL_REC => LV_REO_DEL_REC, 
REQ_MOD_FILE => LV_REQ_MOD_FILE, 
REQ_MOD_OBJ => LV_REO_MOD_OBJ, 
REQ_MOD_REC => LV_REQ_MOD_REC, 


REOSREDTR os) LE s=> °LVeREOURETR FILE, 


REQ_RETR_OBJ => LV_REQ_RETR_OBJ, 
REO “RETROREC => LV_REO_RETR_REC) ; 


exception 
when others => 


DS_DEBUG . UNDECLARED_EXCEPTION ( "RESOLVE_REQUEST_TY PE") ; 


EXCEPTION_HAS_OCCURRED 


_— 
= 


true; 


“RESOLVE_R 
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XCEPTION_ID := UNDECLARED_ADA_EXCEPTION; end; 
end; end if; 
else return; if not EXCEPTION_HAS_OCCURPRED then 
end if; begin 
DS_PEQ MOD_OBJ_MCD_CBJECT.BUFFEP. .WRITE(LY_PEO_MOD_°BC) ; 
Exception Constraint translations. exception 
when BUFFER_OVERFLCt => 
-- Other constraint option translations. DS_DEBUG. BUFFER_OVERPLOW ( "REQ_MOD_CBJ_MCD_OBJECT", "PESOLVYE_REQUEST_TYPE 
he 
--Unconditional output translations. end; 
if not EXCEPTION_HAS_OCCURRED then end if; 
begin if not EXCEPTION_HAS_OCCUPRED then 
DS_PEQ_ADD_FILE_ADD_FILE. BUFFER .WRITE(LV_REQ_ADD_FILE) ; begin 
exception DS_REQ_MOD_REC_MCD_RECORD.BUFFER.WRITE(LV_PEQ_MOD_PEC) ; 
when BUFFER_OVERFLOW => exception 
DS_DEBUG. BUFFER_OVERFLOW("REQO_ADD_FILE_ADD_FILE", "“RESOLVE_REQUEST_TYPE") ; when BUFFER_OVERFLOW => 
end; DS_DEBUG. BUFFER_OVEPFLOW ("REO _MOD_REC_MOD_PECORD", “RESOLYE_REQUEST_TYPE 
end if; Sie 
if not EXCEPTION_HAS_OCCURRED then end; 
begin end if; 
DS_REQ_ADD_OBJ_ADD_OBJECT. BUFFER .WPRITE(LV_REQ_ADD_OBJ); if not EXCEPTION_HAS_OCCUPRED then 
exception begin 
when BUFFER_OVERFLOW => DS_REQ_RETR_FILE_RETRIEVE_FILE. BUFFER .WRITE(LV_REQ_RETR_FILE) ; 
DS_DEBUG. BUFFER_OVERFLOW("REQ_ADD_OBJ_ADD_OBJECT", "“RESOLVE_REQUEST_TYPE") ; exception 
end; when BUFFER_OVERFLOW => 
end if; DS_DEBUG. BUFFER_OVEPRFLOVW("REQ_RETR_FILE_RETRIEVE_FILE", "“RESOLVE_REQUEST 
if not EXCEPTION_HAS_OCCURRED then ETX PEs 
begin end; 
DS_REO_ADD_PREC_ADD_PRECORD. BUFFER .WRITE(LV_REQ_ADD_REC} ; end if; 
exception if not EXCEPTION_HAS_CCCURPRED then 
when BUFFER_OVERFLOW => begin 
DS_DEBUG. BUFFER_OVERFLOW("REQ_ADD_REC_ADD_RECORD", "“RESOLVE_REQUEST_TYPE" ) ; DS REO _RETR_OBJ_RETRIEVE_OBJECT. BUFFER .WRITE( Va) 
end; LV_REQ_RETR_OBU) ; = 
end if; exception 
if not EXCEPTION_HAS_OCCURRED then when BUFFER_OVERFLOW => 
begin DS_DEBUG. BUFFER_OVERFLOW("PEQ_RETR_OBJ_RETRIEVE_OBJECT", "RESOLVE_REQUES 
DS_REO_DEL_FILE_DELETE_FILE. BUFFER .WRITE(LV_REQ_DEL_FILE) ; To Ly PE ee 
exception end; 
when BUFFER_OVERFLOW => end if; 
DS_DEBUG. BUFFER_OVERFLOW("REQ_DEL_FILE_DELETE_FILE", “RESOLVE_REQUEST_TYPE* ) if not EXCEPTION_HAS_OCCURRED then 
begin 
end; DS_REQ_RETR_REC_RETRIEVE_RECORD. BUFFER .WRITE(LV_REQ_RETR_REC) ; 
end if; exception 
if not EXCEPTION_HAS_OCCURRED then when BUFFER_OVERFLOW => 
begin DS_DEBUG . BUFFER_OVERFLOW{ “REQ_RETR_REC_RETRIEVE_RECORD", 
DS_REO_DEL_OBJ_DELETE_OBJECT. BUFFER .WRITE(LV_REQ_DEL_OBJ) ; “RESOLVE_REQUEST2twGe =): 
exception end; 
when BUFFER_OVERFLOW => end if; 
DS_DEBUG. BUFFER_OVERFLOW( “REO_DEL_OBJ_DELETE_OBJECT", “RESOLVE_REQUEST_TY PE" -- PSDL Exception handler. 
; if EXCEPTION_HAS_OCCURRED then 
end; DS_DEBUG .UNHANDLED_EXVEFPTI® I 
end if; “PESOLVE_REVUEST Trff.*. 
if not EXCEPTION_HAS_ OCCURRED then PSDL_EXCEFPTINN’ IMac Fecri.l 
begin end if; 
DewneG@eoel REC DELETE RECORD. BUFFER .WRITE(LV_REO_DEL_REC) ; end RESOLVE PESUECT itbto wr: 


exception 
when BUFFER_OVERFLOW => 


DS_DEBUG. BUFFER_OVERFLOW("REQ_DEL_REC_DELETE_RECORD", "“RESOLVE_REQUEST_TY PE" Procedune hE lhl. Meta ol: st 
Mi LV_REG_RETR_FILE : [BH Fe’ Fl it we 

end; LV_PILESeBTRSNSG : DBP EeaHl ities. lilsedobeeer. ; 
end if; 
if not EXCEPTION_HAS_OCCURRED then EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE: 

begin EXCEPTION_ID: PSDL_EXCEPTION; 

DS_REO MOD_FILE_MOD_FILE. BUFFER .WRITE(LV_REQ MOD_FILE) ; begin 
exception -- Data trigger checks. 


when BUFFER_OVERFLOW => 


_——. an = oh 6 oe aul 6 oaiGeee ee, a ee eee fa a iets mn (stk Gm at a a a ee ee ee ee ee ee a — Se. Ye oo — 





begin OBJ_RETR_MSG => LV_OBJ_PRETP._MSG: ; 


DS2reo- FET _ FILE PRETFIEVELPILE.BUPPEP .READ( GigeREO_FETP_ FILE); exception 
exception when others => 
when BUFFEP_UNDEPRFLOW => DS_DEBUG. UNDECLARED_EXCEPTION (“RETRIEVE_OBJECT"}; 
Peeve naeenbrer “UUDEr TY bow ane oo RETR FILE _PETR.IEVE_FILE", “RETRIEVE FILE") ; EXCEPTION_HAS CCcCUPPED := true; 
end; ExCEPTION-ID <= UNDECLARED _ADA_ EXCEPTION; 
end; 
-- Execution trigger condition check. else return; 
if True then end if; 
begin 
RETRIEVE FILE -- Exception Constraint translations. 
BeooRETR_ FILE => LV_PREO RETR_FILE, 
FILE_RETR_MSG => LV_FILE_RETR_MSG) ; -- Other constraint option translations. 
exception 
when others => ~-Unconditional output translations. 
DSSDEBUG -UNDECLARED EXCEPTION( "RETRIEVE_FILE"); if not EXCEPTION_HAS_OCCURRED then 
EXCEPTION_HAS_OCCURRED := true; begin 
EXCEPTIONLID == UNDECLARED ADA EXCEPTION; DS_OBJ_RETR_MSG_FORMAT_RESPONSE. BUFFER .WRITE(LY_OBJ_PETR_MSG) ; 
end; exception 
else return; when BUFFER_OVERFLOW => 
end if; DS_DEBUG. BUFFER_OVERFLOW ( "“OBJ_RETR_MSG_FORMAT_RESPONSE", "PETPIEVE OBJEC 
ges Lar 
-- Exception Constraint translations. end; 
end if; 


-- Other constraint option translations. 
-- PSDL Exception handler. 


--Unconditional output translations. if EXCEPTION_HAS_ OCCURRED then 
if not EXCEPTION_HAS OCCURRED then DS_DEBUG.UNHANDLED_EXCEPTION ( 
begin "RETRIEVE OBJECT", 
DS_FILE_RETR_MSG_FORMAT_RESPONSE. BUFFER .WPITE(LV_FILE_RETP._MSSG) ; PSDL_EXCEPTION’ IMAGE(EXCEPTION_ID}) ; 
exception end if; 
when BUFFER_OVERFLOW => end RETRIEVE_OBJECT_DRIVEP;; 10 
DS_DEBUG. BUFFER_OVERFLOW ("FILE RETR_MSG_FORMAT RESPONSE", "“RETRIEVE_FILE") ; = 
end; _ 
end if; procedure RETRIEVE_RECORD_DRIVER is 
LV_REQ _RETR_REC : DB_RECORD_PKG.DB_RECORD; 
-- PSDL Exception handler. LV_REC_RETR_MSG : DB_RECORD_PKG.DB_PECORD; 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG.UNHANDLED_EXCEPTION ( EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
"RETRLEVELEILE™, EXCEPTION_ID: PSDL_EXCEPTION; 
PSDie EXCEPTION’ IMAGE( EXCEPTION ID} ); begin 
end if; -- Data trigger checks. 


end RETRIEVE_FILE_DRIVER; 
-- Data stream reads. 


begin 
procedure RETRIEVE_OBJECT_DRIVER is DS_REQ RETR_REC_RETRIEVE_RECORD.BUFFER. READ (LV_REQ_RETR_REC) ; 
LV_REQ_RETR_OBJ : DB_RECORD_PKG.DB_RECORD; exception 
LV_OBJ_RETR_MSG : DB_RECORD_PKG.DB_RECORD; when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW ("REQ_RETR_REC_RETRIEVE_RECORD", "RETRIEVE_RECORD 
EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; aa hp 
EXCEPTION_ID: PSDLLEXCEPTION; end; 
begin 
-- Data trigger checks. -- Execution trigger condition check. 
if True then 
-- Data stream reads. begin 
begin RETRIEVE_RECORD ( 
DS_REQ RETR_OBJ_RETRIEVE_OBJECT.BUFFER. READ (LV_REQ_RETR_OBJ) ; REO_RETR_REC => LV_REO_RETR_REC, 
exception REC_RETR_MSG => LV_REC_RETR_MSG) ; 
when BUFFER_UNDERFLOW => exception 
DS_DEBUG. BUFFER_UNDERFLOW ( “REQ_RETR_OBJ_RETRIEVE_OBJECT", “RETRIEVE_OBJECT") ; when others => 
end; DS_DEBUG .UNDECLARED_EXCEPTION (""RETRIEVE_RECORD" ) ; 
EXCEPTION_HAS_ OCCURRED := true; 
-- Execution trigger condition check. EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
if True then end; 
begin else return; 
RETRIEVE_OBJECT ( end if; 


REG@SREITR OBJ => LVSREO_RETR_OBJ, 


.caps/SAAWC/1.1/SAAWC.b 

-- Exception Constraint translations. 

-- Other constraint option translations. 
--Unconditional output translations. 


if not EXCEPTION_HAS_OCCURRED then 
begin 
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DS_REC_PRETR_MSG_FOPMAT_RESPONSE. BUFFER .WRITE(LV_REC_RETR_MSG} ; 


exception 
when BUFFER_OVERFLOW => 


DS_DEBUG . BUFFER_OVERFLOW( "REC_LRETR_MSG_FORMAT_RESPONSE", 


end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG . UNHANDLED_EXCEPTION ( 
*“RETRIEVE_RECORD", 
PSDL_EXCEPTION’ IMAGE (EXCEPTION_ID) }; 
end if; 
end RETRIEVE_RECORD_DRIVER; 


procedure MOUNT_DEVICE_DRIVER is 
LV_ADMINISTER_DEVICE : DEVICE_PKG.DEVICE; 
LV_DEVICE_STATUS : BOOLEAN; 


EXCEPTION_HAS_ OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 


~- Data stream reads. 
begin 


PRE CALE VE RECORD); 


DS_ADMINISTER_DEVICE_MOUNT_DEVICE.BUFFER. READ (LV_ADMINISTER_DEVICE) ; 


exception 
when BUFFER_UNDERFLOW => 


DS_DEBUG. BUFFER_UNDERFLOW ( "ADMINISTER_DEVICE_MOUNT_DEVICE", 


end; 
begin 


DS_DEVICE_STATUS_MOUNT_DEVICE. BUFFER. READ(LV_DEVICE_STATUS) ; 


exception 
when BUFFER_UNDERFLOW => 


DS_DEBUG. BUFFER_UNDERFLOW ("DEVICE_STATUS_MOUNT_DEVICE", 
end; 


-- Execution trigger condition check. 
if True then 
begin 
MOUNT_DEVICE ( 
ADMINISTER_DEVICE => LV_ADMINISTER_DEVICE, 
DEVICE_STATUS => LV_DEVICE_STATUS) ; 
exception 
when others => 
DS_DEBUG. UNDECLARED_EXCEPTION ("MOUNT_DEVICE") ; 
EXCEPTION_HAS_OCCURRED := true; 


EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 


else return; 
end if; 


-- Exception Constraint translations. 


-- Other constraint option translations. 


--Unconditional output translations. 


UMOUL Leb Ey LCE?) 


'MOUNT_ DEVICE); 


begin 

DS_DEVICE_STATUS_SEPVER_THREAD_MANAGER.. BUFFER. .WIRITEi LVY_DEVICE_STATUS) ; 
exception 

when BUFFER_OVEPFLOW => 

DS_DEBUG. BUFFEP_OVEPFLCW( "DEVICE_STATUS_SERVER_THREAD_MANAGER ", "MOUNT_D 
EVICE 2 

end; 
begin 


DS_DEVICE_STATUS_MOUNT_DEVICE. BUFFER .WwIPRITE(LV_DEVICE_STATUS) ; 


exception 
when BUFFER_OVERFLOW => 


DS_DEBUG. BUFFEP_OVERFLOW ( "DEVICE_STATUS_MOUNT_DEVICE", “MOUNT_DEVICE") ; 


end; 
end LE: 


-~ PSDL Exception handler. 
if EXCEPTION_HAS_ OCCURRED then 
DS_DEBUG.UNHANDLED_EXCEPTION ( 
“MOUNT DEVICE”, 
PSDL_EXCEPTION’ IMAGE(EXCEPTION_ID) ); 
end if; 
end MOUNT_DEVICE_DRIVER; 


procedure LOCATE_MAP_DRIVER is 
LV_REQUEST_MAP : MAP; 
LY_DELIVER_MAP : MAP; 


* 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 


-- Data stream reads. 
begin 
DS_REQUEST_MAP_LOCATE_MAP. BUFFER. READ (LV_REQUEST_MAP) ; 
exception 
when BUFFER_UNDERFLOW => 


DS_DEBUG. BUFFER_UNDERFLOW { “REQUEST_MAP_LOCATE_MAP", 
end; 


-- Execution trigger condition check. 
if True then 
begin 
LOCATE_MAP ( 
REQUEST_MAP => LV_REQUEST_MAP, 
DELIVER _MAP => LV_DELIVER_MAP) ; 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION ("LOCATE_MAP") ; 
EXCEPTION_HAS_OCCURRED := true; 


EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 


else return; 
ena if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 
--Unconditional output translations. 


if not EXCEPTION_HAS_OCCURRED then 
begin 
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"LOCATE_MAP") ; 


DS_DELIVER_MAP_SERVER_THREAD_MANAGER. BUFFER.WRITE(LV_DELIVER_MAP) ; 


exception 
when BUFFER_OVERFLOW => 


WC/1L.4£/5ARAWC.D 





end if; 


-- PSDL Exception handler. 
1f EXCEPTICN_HAS_OCCURRED then 
DS_DEBUG. UNHANDLED_EXCEPTICH | 
PLOCATEMArP™, 
PSDL_EXCEPTICN’ IMAGE ( EXCEPTION_ID) } ; 
end if; 
end LOCATE_MAP DRIVER; 


procedure ARCHIVE_MSGS_DRIVEPR is 
LV_FEED_MSGS : MESSAGE _PKG.MESSAGE; 
LV_MSG_MESSAGE_DB MESSAGE _PKG .MESSAGE; 


EXCEPTICN_HAS_ OCCURRED: BOOLEAN := FALSE; 
EXCEPTION ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 


~- Data stream reads. 
begin 
DS_FEED_MSGS_ARCHIVE_MSGS.BUFFER.READ(LV_FEED_MSGS) ; 
exception 
when BUFFER_UNDERFLOW => 


‘rue Sep Lo U72U924260 L997 


DS_DEBUG. BUFFER_UNDERFLOW ("“FEED_MSGS_ARCHIVE_MSGS", "ARCHIVE_MSGS") ; 


end; 
begin 


DS_MSG_MESSAGE_DB_ARCHIVE_MSGS. BUFFER .READ(LV_MSG_MESSAGE_DB) ; 


exception 
when BUFFER_UNDERFLOW => 


DS_ DEBUG. BUFFER_UNDERFLOW ("MSG_MESSAGE_DB_ARCHIVE_MSGS", 


end; 


-- Execution trigger condition check. 
if True then 
begin 
ARCHIVE_MSGS ( 
FEED_MSGS => LV_FEED_MSGS, 
MSG _ MESSAGE _DB => LV_MSG_MESSAGE_DB) ; 
exception 
when others => 
DS_DEBUG . UNDECLARED_EXCEPTION ("ARCHIVE_MSGS") ; 
EXCEPTION_HAS_ OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 
--Unconditional output translations. 


if not EXCEPTION_HAS_OCCURRED then 
begin 


"“ARCHIVE_MSGS") ; 


DS_MSG_MESSAGE_DB_ARCHIVE_MSGS. BUFFER.WRITE (LV_MSG_MESSAGE_DB) ; 


exception 
when BUFFER _OVERFLOW => 


DS_DEBUG. BUFFER_OVERFLOW ("MSG_MESSAGE_DB_ARCHIVE_MSGS", 


end; 
begin 


“ARCHIVE_MSGS") ; 


DS_MSG_MESSAGE_DB_MSG_HANDLE_QUERY. BUFFER .WRITE (LV_MSG_MESSAGE_DB) ; 


exception 
when BUFFER_OVERFLOW => 


DS_DEBUG. BUFFER_OVEPFLC! | "HSG_MESSASE_DB_MSG HANDLE_GUEPY", "“APCHIVE_MSG 


Sine 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCUPRED then 
DS_DEBUG . UNHANDLED_EXCEPTION ( 
"ARCHIVE _MSGS"*, 
PSDL_EXCEPTION’ IMAGE (EXCEPTION_ID) ); 
end if; 
end ARCHIVE_MSGS_DRIVEP; 


procedure MSG_HANDLE_QUERY_DRIVER is 
LV_MSG_FILTER : MESSAGE_PKG.MESSAGE; 
LV_MSG_MESSAGE_DB MESSAGE_PKG .MESSAGE; 
LV_RESPOND_MSGS : MESSAGE_PKG.MESSAGE; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 
-- Data stream reads. 
begin 
DS_MSG_FILTER_MSG_HANDLE_QUERY. BUFFER .READ(LV_MSG_FILTER) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW ("MSG_FILTER_MSG_HANDLE_QUERY", 


“MSG_HANDLE_QUERY 


end; 
begin oO 
DS_MSG_MESSAGE_DB_MSG_HANDLE_QUEPRPY. BUFFER .READ ( < 
LV_MSG_MESSAGE_DB) ; —_ 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW ("MSG_MESSAGE_DB_MSG_HANDLE_QUERY", "MSG LHANDLE_® 


URRY I-: 
end; 


-- Execution trigger condition check. 
if True then 
begin 
MSG_HANDLE_QUERY { 
MSG FILTER => LV_MSG_FILTER, 
MSG_MESSAGE_DB => LV_MSG_MESSAGE_DB, 
RESPOND_MSGS => LV_RESPOND_MSGS) ; 


exception 
when others => 


DS_DEBUG .UNDECLARED_EXCEPTION(* HIG HsnlIe GukPi’:; 
EXCEPTION_HAS_OCCURPED :- ! ttre; 
EXCEPTION IP <:= UIDETLakrm fii ¢. 
end; 
else return; 
end if; 


-- Exception Constraint tran le 
-- Other constraint option Cratolatiin, 
--Unconditional output translations. 


if not EXCEPTION_HAS OCCURRED then 
begin 


DS_RESPOND_MSGS_SERVER_THREAD_MANAGER . BUFFER.WRITE( LV_RESPOND_MSGS) ; 


exception 
when BUFFER_OVERFLOW => 


DS_ DEBUG. BUFFER_OVERFLOW( "RESPOND_MSGS_SERVER_THREAD_MANAGER", °MSG_HAND 
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LE_QUERY"); 
end; 
end if; 


PSDL Exception handler. 
if EXCEPTICH_HAS_OCCURPED then 
DS_DEBUG. UNHANCLED_EXCEPTION ( 
“MSG _HANDLE_QUERY ", 
PSDL_EXCEPTIGN’ IMAGE(EXCEPTION_ID)); 
end if; 
end MSG_HANDLE_GUERY_DRIVER; 


procedure MSG_UPDATE_FILTER_DRIVER is 
LV_REQUEST_MSGS MESSAGE_PKG .MESSAGE; 
LV_MSG_FILTER : MESSAGE _PKG.MESSAGE; 


EXCEPTION_HAS_GCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 


-- Data stream reads. 
begin 
DS_MSG_FILTER_MSG_UPDATE_FILTER.BUFFER.READ(LV_MSG_FILTER) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW ("MSG_FILTER_MSG_UPDATE_FILTER", "MSG_UPDATE_FILTER" ) 


end; 
begin 
DS_REQUEST_HSGS_MSG_UPDATE_FILTER.BUFFER.READ(LV_REQUEST_MSGS) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER _UNDERFLOW { "REQUEST_MSGS_MSG_UPDATE_FILTER", "“MSG_UPDATE_FILTER 
ie 


end; 


-- Execution trigger condition check. 
if True then 
begin 
MSG_UPDATE_FILTER ( 
REQUEST_MSGS => LV_REQUEST_MSGS, 
MSG_FILTER => LV_MSG_ FILTER) ; 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION ("MSG_UPDATE_FILTER") ; 
EXCEPTION _HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 


~-Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_MSG_FILTER_MSG_UPDATE_FILTER .BUFFER.WRITE(LV_MSG_FILTER) ; 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG. BUFFER OVERFLOW ("MSG_FILTER_MSG_UPDATE_FILTER", "“MSG_UPDATE_FILTER" 


end; 


DS _MSG_FILTER_MSG_HANDLE_TUERY. BUFFER .WRITE!{LY_MSG_FILTER} ; 
exception 
when BUFFER_OVEPFLCY => 
DS DEBUG. BUFFER_CVERFLCt!‘ "MSG_FILTER_MSG_HANDLE_QUERY", "MSG_UPDATE_FILT 


EP"); 


end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_ DEBUG. UNHANDLED_EXCEPTION ( 
“MSG_UPDATE_FILTER", 
PSDL_EXCEPTION’ IMAGE(EXCEPTION_ID) ) ; 
end if; 
end MSG_UPDATE_FILTEPR_DRIVEP.; 


procedure TEMPLATE_DATABASE_DRIVER is 
LY_REQ TEMPLATE : MESSAGE_PKG.MESSAGE; 
LY_RESPOND_TEMPLATE : MESSAGE_PKG.MESSAGE; 


EXCEPTION_HAS_OCCURPED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 


~- Data stream reads. 
begin 
DS_REQ_TEMPLATE_TEMPLATE_DATABASE. BUFFER . READ (LV_REQ_TEMPLATE) ; 
exception , 
when BUFFER_UNDERFLCW => 
DS_DEBUG. BUFFER_UNDERFLOW ("REQ _TEMPLATE_TEMPLATE_DATABASE", " TEMPLATE_DAT Sy 
BASE") ; oF 
end; a 


-~ Execution trigger condition check. 
if True then 
begin 
TEMPLATE_DATABASE ( 
REQ_TEMPLATE => LV_REQ_TEMPLATE, 
RESPOND_TEMPLATE => LV_RESPOND_TEMPLATE) ; 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION ( “TEMPLATE_DATABASE" ) ; 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


- Exception Constraint translations. 
-~- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_RESPOND_TEMPLATE_SERVER_THREAD_MANAGER . BUFFER .WRITE( LV_RESPOND_TEMPLATE 


exception 
when BUFFER_OVERFLOW => 
DS DEBUG. BUFFER. OVERFLOW({ "RESPOND_TEMPLATE_SERVER_THREAD_MANAGER", "TEMP 
LATE_DATABASE") ; 
end; 
end if; 
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Tr ES CeP rie eyes ececurr cr athen 
DS_DEBUG. UNHANDLED_EXCEPTION ( 
“TEMPLATE_DATABASE", 
Pople EecePTION LMASE(EXCEPTICHEID} ) ; 
end if; 
end TEMPLATE_DATABASE_DP.IVEP.; 


procedure RESOLVE_RESOURCE_LOC_DRIVER is 
LV_REQ_RESOURCE : MESSAGE _PKG.MESSAGE; 
LV_MOD_OBJ_LOC : ADMINISTER_PKG.ADMINISTER; 
LV_RESOURCE_PHYS_LOC : MESSAGE_PKG.MESSAGE; 


EXCEPTION_HAS_ OCCUPRPED: BOOLEAN := FALSE; 
EACES TIGHT D: PSDLZEZCEPTION; 
begin 
-- Data trigger checks. 
-- Data stream reads. 
begin 
DS_MOD_OBJ_LOC_PESOLVE_RESOURCE_LOC . BUFFER. READ (LV_MOD_OBJ_LOC) ; 
exception 


when BUFFER_UNDERFLOW => 


DS_DEBUG . BUFFER_UNDERFLOW ("MOD_OBJ_LOC_RESOLVE_RESOURCE_LOC", "RESOLVE_RESOURC 


E hog 
end; 
begin 
DS_REO_RESOUP.CE_RESOLVE_RESOURCE_LOC. BUFFER .READ(LV_PEO_RESOURCE) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW ("REO_RESOURCE_PESOLVE_RESOURCE_LOC", “RESOLVE_RESOUR 
CE_LoGz: 


end; 


~- Execution trigger condition check. 
if True then 

begin 

RESOLVE_RESOURCE_LOC ( 
REO_RESOURCE => LV_REO RESOURCE, 
MOD_OBJ_LOC => LV_MOD_OBJ_LOC, 
ReSseuRCE PHYS LOG => LV SRESOURCE PHYS_LOC) ; 

exception 


when others => 
DS_DEBUG . UNDECLARED_EXCEPTION ("RESOLVE_RESOURCE_LOC") ; 


EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_MOD_OBJ_LOC_RESOLVE_RESOURCE_LOC .BUFFER.WRITE(LV_MOD_OBJ_LOC) ; 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG. BUFFER_OVERF LOW ( ""MOD_OBJ_LOC_RESOLVE_RESOURCE_LOC", “RESOLVE_RESOUR 
CEL Loe alc: 
end; 
end if; 
if not EXCEPTION _HAS_ OCCURRED then 
begin 
DS_RESOURCE_PHYS_LOC_SERVER_THREAD_MANAGER. BUFFER .WRI TE (LV_RESOURCE_PHYS_LOC) ; 


a9 


exception 
when BUFFER_OVERFLOW => 
DS_DEBUG. BUFFEPR_COVEPFLit!, "PESCUPRCE_PHYS_LOC_SEPVEP_THPEAD_MANASEP ", 
OLVE] PESCUPRGE Leet): 
end; 
end if; 


“RES 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCUPPED then 
DS_DEBUG.UNHANDLED_EXCEPTION ( 
"“RESOLVE_RESOURCE_LOC", 
PSDL_EXCEPTION’ IMAGE(EXCEPTION_ID) ); 
end if; 
end RESOLVE_RESOURCE_LOC_DRIVER; 


procedure BUILD_FILE_DPIVER is 
LV_SCREEN_PARAM : PARAM_PKG.PAPAM; 
LV_FILE_NAME : PATH_PKG.PATH; 
EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 


Data stream reads. 
begin 
DS_SCREEN_PARAM_BUILD_FILE.BUFFER.READ(LV_SCREEN_PAPAIM) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW (""SCREEN_PAPAM_ BUILD_FILE", 


end; 


“BULLER SP LEE, 5 
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-- Execution trigger condition check. 
if True then 
begin 
BULED_ FILE ¢ 
SCREEN_PARAM => LV_SCREEN_PARAM, 
FILE_NAME => LV_FILE_NAME) ; 
exception 


when others => 
DS_DEBUG.UNDECLARED_EXCEPTION ("“BUILD_FILE") ; 


EXCEPTION_HAS_OCCURRED := Crue; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 


-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_FILE_NAME_SPOOL_FILE.BUFFER.WRITE(LV_FILE_NAME) ; 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG. BUFFER_OVERFLOW ( "FILE_NAME_SPOOL_FILE", 
end; 
end if; 


"BUILD_FILE") ; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG . UNHANDLED_EXCEPTION ( 
"BU PEDEELLE", 
PSDL_EXCEPTION’ IMAGE (EXCEPTION_ID)); 
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end if; 
end BUILD_FILE_DPIVER; 


pimmcedure CHECH_!OR_FPILE_DRIVEPR is 
LV_PRINT._ REQUEST : MESSAGE_PKG. MESSAGE; 
LY_ RECEIVE FILE : MESSAGE_PKG.MESSAGE; 
LY_FILE : PATH_PKG. PATH; 
LV_REQUEST_FILE : MESSAGE_PKG.MESSAGE; 
LY_SCREEN_PARAM : PARAM_PKG.PARAM; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
- Data trigger checks. 


- Data stream reads. 
begin 
DS_PRINT_REQUES T_CHECK_FOR_FILE. BUFFER. READ (LV_PRINT_REQUEST) ; 
exception 
when BUFFER_UNDERFLOW => 


DS_VEBUG TBUPEER_UNDERELOW (“PRINT REQUEST-CHECK_FOR_FILE", “CHECK FPOR-FILE"); 


end; 
begin 
DS_PECEIVE_FILE_CHECK_FOR_FILE. BUFFER .READ(LV_RECEIVE_FILE) ; 
exception 
when BUFFER_UNDERFLOW => 


Dee DEBUG. BUEEEr2UNDERELOW(” RECEIVE ELLE CHECKUPOR. PILE. CHECKZEOR] ELLE S):; 


end; 


- Execution trigger condition check. 
if True then 
begin 
CHEGY FOR SE ILE( 
PRINT_REQUEST => LV_PRINT_REQUEST, 
Reece Pob==-> LV RECEIVE FILE, 
EQGe => LV_PILLE, 
REQUEST_FILE => LV_REQUEST_FILE, 
SCREEN_PARAM => LV_SCREEN_PARAM) ; 
exception 
when others => 
DS_DEBUG . UNDECLARED_EXCEPTION ( "CHECK_FOR_FILE") ; 
EXCEPTION HES2CCCURRED := Crue; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-~ Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 
begin ‘ 
DS_FILE_SPOOL_FILE. BUFFER .WRITE(LV_FILE) ; 
exception 
when BUFFER_OVERFLOW => 
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DS_ DEBUG ..BUFFER_OVERFLOW( “FILE_SPOOL_FILE", “CHECK_FOR_FILE") ; 


end; 

end if; 

if not EXCEPTION_HAS_OCCURRED then 
begin 


DS_REQUEST_FILE_SERVER_THREAD_MANAGER . BUFFER .WRITE(LV_REQUEST_FILE) ; 


exception 
when BUFFER_OVERFLOW => 
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Let) 
end; 
end if; 
if not EXCEPTION_HAS_CCcCURPEP then 
begin 
DS_SCREEN_PARAM_BUILD_FILE. BUFFER .WRITE(LY_SCREEN_PARAM) ; 
exception 


when BUFFER_OVERFLOW => 


DS_DEBUG. BUFFER_CVERFLOW( "SCREEN_PARAM_BUILD_FILE", “CHECK_FOR_FILE") ; 


end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG. UNHANDLED_EXCEPTION ( 
"CHECK_FOR_FILE", 
PSDL_EXCEPTION’ IMAGE(EXCEPTION_ID) ) ; 
end if; 
end CHECK_FOR_FILE_DRIVER; 


procedure SPOOL_FILE_DRIVER is 
LV_FICE = era rHerans. (a lH: 
LV_FILE_NAME : PATH_PKG.PATH; 
LV_JOB_SPOOLED_MSG : MESSAGE_PKG.MESSAGE; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 


-- Data stream reads. 
begin 
DS_FILE_SPOOL_FILE.BUFFER.READ({LV_FILE) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW ("“FILE_SPOOL_FILE", "SPOOL_FILE") ; 
end; 
begin 
DS_FILE_NAME_SPOOL_FILE.BUFFER.READ({(LV_FILE_NAME) ; 
exception 
when BUFFER_UNDERFLOW => 


DS_DEBUG .. BUFFER_UNDERFLOW {("FILE_NAME_SPOOL_FILE", "SPOOL_FILE"); 


end; 


-- Execution trigger condition check. 
if True then 
begin 
SPOOL_FILE ( 
FILE => LV_FILE, 
FILE_NAME => LV_FILE_NAME, 
JOB_SPOOLED_MSG => LV_JOB_SPOOLED_MSG} ; 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION (“SPOOL_FILE") ; 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 


--Unconditional output translations. 


3a 





.caps/ /1.1/SAAWC.b Tue Sep 16 07:09:26 1997 als — 
begin when BUFFER_OVEPFLOW => 
DS _JOB_SPCOLED_MSG_SEPRVEPR_THPEAD_MANAGEP.. BUFFER .WRITE{LVY_JOB_SPOOLED MSG) ; DS_DEBUG. BUFFEP,_OVEPFLOW;{ “ISSUE_CERTIFICATE_SEPRVEP_THREAD_MANAGER", “VAL 
exception LDATE 2: SP TEP LCATE,“)i; 
when BUFPFER_OVERFLOW => end; 
DS_DEBUG.BUFFER_CVEPFLOW({ "JOB_SPOCLED_MSG_SERVEP._THREAD_ MANAGER", "SPOOL_FIL begin 
Ey DeeloSue CERTIFICATE YALIDATE_CEPTIPICATE.BUPPFER .WRITE(LY_ISSUE CERTIFICAT 
end; E}; 
end if; exception 
when BUFFER_LOVERFLOW => 
-- PSDL Exception handler. DS_ DEBUG. BUFFER_OVEPFLCW( "ISSUE_CERTIPICATE VALIDATE_CERTIFICATE", “VALI 
if EXCEPTION_HAS_OCCURPED then DATE_CERTIFICATE") ; 
DS_DEBUG . UNHANDLED_EXCEPTION ( end; 
US POOL Fae, end if; 
PSDL_EXCEPTION’ IMAGE (EXCEPTION_ID)); 
end if; ~- PSDL Exception handler. 
end SPOOL_FILE_DRIVER; if EXCEPTION_HAS_OCCURRED then 


DS_DEBUG . UNHANDLED_EXCEPTION ( 
"“VAGUDATE_CERTIFICATE™, 


procedure VALIDATE_CERTIFICATE_DRIVER is PSDL_EXCEPTION’ IMAGE (EXCEPTION_ID) ) ; 
bv eReQUEST CERTIFICATE : CERTIFICATE PKG. CERTIFICATE; end if; 
LV_ISSUE_CERTIFICATE : CERTIFICATE_PKG.CERTIFICATE; end VALIDATE_CERTIFICATE_DPIVER ; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
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EXCEPTION_ID: PSDL_EXCEPTION; procedure VALIDATE_KEY_DRIVER is 
begin LVSREOURSTSALEY = KEY PRG.KEY; 
-- Data trigger checks. LVSESSUE KEY = KEY_PEG-KEY; 
-- Data stream reads. EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
begin EXCEPTION_ID: PSDL_EXCEPTION; 
DS_ISSUE_CERTIFICATE_VALIDATE_CERTIFICATE. BUFFER. PEAD(LYV_ISSUE_CERTIFICATE) ; begin ; 
exception -- Data trigger checks. 
when BUFFER_UNDERFLOW => 
DS_DEBUG .. BUFFER_UNDERFLOW ( “ISSUE_CERTIFICATE_VALIDATE_CERTIFICATE", “VALIDATE_ -- Data stream reads. 
CERTIFICATE”); begin 
end; DS_ISSUE_KEY_VALIDATE_KEY . BUFFER. READ (LV_ISSUE_KEY) ; 
begin exception 
DS_REQUEST_CERTIFICATE_VALIDATE_CERTIFICATE . BUFFER. READ (LV_REQUEST_CERTIFICATE) ; when BUFFER_UNDERFLOW => 
exception DS_DEBUG. BUFFER_UNDERFLOW ("ISSUE_KEY_VALIDATE_KEY", “VALIDATE_KEY") ; 
when BUFFER_UNDERFLOW => end; 
DS_DEBUG . BUFFER_UNDERFLOW { "REQUEST_CERTIFICATE_VALIDATE_CERTIFICATE", “VALIDAT begin 
E_CERTIFICATE") ; DS_REQUEST_KEY_VALIDATE_KEY . BUFFER . READ (LV_REQUEST_KEY) ; 
end; exception 
when BUFFER_UNDERFLOW => 
-- Execution trigger condition check. DS_DEBUG. BUFFER_UNDERF LOW (“REQUEST_KEY_VALIDATE_KEY", "VALIDATE_KEY") ; 
if True then end; 
begin 
VALIDATE _CERTIFICATE( -- Execution trigger condition check. 
REQUEST CERTIFICATE => LV_REQUEST CERTIFICATE, if True then 
ISSUE_CERTIFICATE => LV_ISSUE_CERTIFICATE) ; begin 
exception VALIDATE_KEY { 
when others => REQUEST_KEY => LV_REQUEST_KEY, 
DS_DEBUG . UNDECLARED_EXCEPTION ("VALIDATE_CERTIFICATE") ; ISSUE_KEY => LV_ISSUE_KEY) ; 
EXCEPTION_HAS_OCCURRED := true; exception 
EXCEPTION_ID := UNDECLARED_ADA_ EXCEPTION; when others => 
end; DS_DEBUG . UNDECLARED_EXCEPTION ( “VALIDATE_KEY") ; 
else return; EXCEPTION_HAS_OCCURRED := true; 
end if; EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
-- Exception Constraint translations. else return; 
end if; 


-- Other constraint option translations. 
~- Exception Constraint translations. 
--Unconditional output translations. 


if not EXCEPTION_HAS_OCCURRED then -- Other constraint option translations. 
begin 
DS_ISSUE_CERTIFICATE_SERVER_THREAD_MANAGER. BUFFER .WRITE(LV_ISSUE_CERTIFICATE) ; --Unconditional output translations. 


exception if not EXCEPTION_HAS_OCCURRED then 


.caps/SAAWC/1.1/SAAWC.b 


begin 
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DS_ISSUE_FEY_SERVEP_THREAD_HANAGER . BUFFER .WRITE(LY_ISSUE_KE?Y); 


exception 
when BUFFER_CVEPFLOW => 


DS_DEBUS. BUFFER_OVEPRFLOW ( “ISSUE_KEY_SERVEP_THREAD_MANAGEPR.", "VALIDATE_KEY") 


end; 
begin 


DS_ISSUE_FEr_VALIDATE_KEY . BUFFER .WRITE(LY_ISSUE_FEY) ; 


exception 
when BUFFER_CVEPRFLOW => 


DS_DEBUG . BUFFER_OVERFLOV ( "ISSUE_KEY_VALIDATE_KEY", 


end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG . UNHANDLED_EXCEPTION ( 
“VALI DATE_FEY”, 
PSDL_EXCEPTION’ IMAGE (EXCEPTION_ID) ) ; 
end if; 
end VALIDATE_KEY_DRIVER; 


procedure VALIDATE_SIGNATURE_DRIVER is 


LV_REQUEST_SIGNATURE : SIGNATURE_PKG.SIGNATURE; 


LV_ISSUE_SIGNATURE : SIGNATURE_PKG.SIGNATURE; 


EXCEPTION_HAS_OCCUPRRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
~- Data trigger checks. 


-- Data stream reads. 
begin 


"VALIDATE_KEY") ; 


DS_ISSUE_SIGNATURE_VALIDATE_SIGNATURE . BUFFER . READ (LV_ISSUE_SIGNATURE) ; 


exception 
when BUFFER_UNDERFLOW => 


DS_DEBUG .. BUFFER_UNDERFLOW ("ISSUE_SIGNATURE_VALIDATE_SIGNATURE", 


DS_REQUEST_SIGNATURE_VALIDATE_SIGNATURE. BUFFER. READ (LV_REQUEST_SIGNATURE) ; 


ATURE") 
end; 
begin 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW ( “REQUEST_SIGNATURE_VALIDATE_SIGNATURE", 
GNATURE ") ; 


end; 


-- Execution trigger condition check. 
if True then 
begin 
VALIDATE_SIGNATURE ( 


REQUEST_SIGNATURE => LV_REQUEST_SIGNATURE, 


ISSUE_SIGNATURE => LV_ISSUE_SIGNATURE) ; 
exception 
when others => 


DS_DEBUG .UNDECLARED_EXCEPTION ("VALIDATE_SIGNATURE") ; 


EXCEPTION _HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 


Other constraint option translations. 


. 
Ld 


"“VALIDATE_SIGN 


“VALIDATE_SI 
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--Unconditional output translations. 
if not EXCEPTION_HAS_OCIURREDR then 


begin 


DS_ISSUE_SIGHNATURE_SERVER_THREARD MANAGER. BUFFEP. .VIRITE;LVY_ISSUE_SIGIHATUPE;} ; 


exception 
when BUFFEPR_OVERFLO! => 


DS_DEBUG. BUFFEP._CYEPRFLO' || "ISSUE_SIGNATURE_SERVEP_THREASD_MANAGEPR", "VALID 


ATE_SIGNATURE") ; 
end; 
begin 


DS_ISSUE_SIGNATURE_VALIDATE_SIGNATUPE . BUFFER .WRITE(LVY_ISSUE_SIGHNATURE) ; 


exception 
when BUFFER_OVERFLOW => 


DS_DEBUG. BUFFER_OVERFLOW( "ISSUE_SIGNATURE_VALIDATE_SIGNATURE", "VALIDATE 


SIGNATURE") ; 
end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG . UNHANDLED_EXCEPTION ( 
"VALIDATE_SIGNATURE", 
PSDL_EXCEPTION’ IMAGE (EXCEPTION_ID) ) ; 
end if; 
end VALIDATE_SIGNATURE_DPIVER; 


procedure UPDATE_TIME_DPIVER is 
LV_NEW_TIME : TIMESTAMP_PKG.TIMESTAMP; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 


EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 


- Data stream reads. 


-- Execution trigger condition check. 
if True then 
begin 
UPDATE_TIME ( 
NEW_TIME => LV_NEW_TIME) ; 
exception 
when others => 


DS_DEBUG.UNDECLARED_EXCEPTION ("UPDATE_TIME" ) ; 


EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID : 
end; 
else return; 
end if; 


-~- Exception Constraint translations. 
- Other constraint option translations. 
--Unconditional output translations. 


if not EXCEPTION_HAS_OCCURRED then 
begin 


DS_NEW_TIME_SERVER_THREAD_MANAGER . BUFFER .WRITE( LV_NEW_TIME) ; 


exception 
when BUFFER_OVERFLOW => 


DS_DEBUG. BUFFER_OVERFLOW ( "NEW_TIME_SERVER_THREAD_MANAGER", 


end if; 


:= UNDECLARED_ADA_EXCEPTION; 
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"“UPDATESTIME- 





if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG. UNHANDLED_EXCEPTION ( 
“UPDATE_TIME", 
PSDL_ EXCEPTION’ IMAGE| EXCEPTION_ID)) ; 
end if; 
end UPDATE_TIME_DRIVERP; 


procedure HANDLE_QUERY_DRIVEP is 
LV_FILTER : TRACKS_PKG.TRACKS; 
LV_TRACK_DB : TRACKS_PKG.TRACKS; 
LV_RESPOND_TRACKS : TRACKS_PKG.TPACKS; 


EXCEPTION _HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 


-- Data trigger checks. 


-- Data stream reads. 
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begin 

DS_FILTER_HANDLE_QUERY . BUFFER .READ(LV_FILTER) ; 
exception 

when BUFFER_UNDERFLOW => 

DS_DEBUG. BUFFER_UNDERFLOW (“FILTER_HANDLE_QUERY", *HANDLE_OQUERY™)"; 

end; 
begin 

DS_TRACK_DB_HANDLE_QUERY. BUFFER .READ (LY_TRACK_DB) ; 
exception 


when BUFFER_UNDERFLOW => 


DS_DEBUG . BUFFER_UNDERFLOW ("TRACK_DB_HANDLE_QUERY", “HANDLE_QUERY “) ; 


end; 


-- Execution trigger condition check. 
if True then 
begin 
HANDLE_QUERY ( 
FILTER =>. LV FILTER, 
TRACK DB => LV_TRACK_DB, 
RESPOND_TRACKS => LV_RESPOND_TRACKS) ; 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION ( “HANDLE_QUERY “) ; 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end ir: 


-- Exception Constraint translations. 
-- Other constraint option translations. 
--Unconditional output translations. 


if not EXCEPTION_HAS_OCCURRED then 
begin 


DS_RESPOND_TRACKS_SERVER_THREAD_MANAGER . BUFFER .WRITE(LV_RESPOND_TRACKS) ; 


exception 
when BUFFER_OVERFLOW => 


DS_ DEBUG. BUFFER_OVERFLOW ( "RESPOND_TRACKS_SERVER_THREAD_MANAGER", “HANDLE_QUE 


By) : 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG . UNHANDLED_EXCEPTION ( 
“HANDLE_QUERY"“, 
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PSDL_EXCEPTIO!N’ IMAGE (EXCEPTICN_ID) } ; 
enae wt: 
end HANDLE_QUERY_DRIVER; 


procedure UPDATE_FILTER_DP.IVEP. is 
LV_REQ_TRACKS : TPRACKS_PKG. TRACKS; 
|) Es 1 bl OH Sa TRACKS PKG.TRACKS; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 


-- Data stream reads. 
begin 
DS_FILTER_UPDATE_FILTER . BUFFER .READ (LV_FILTER) ; 
exception 
when BUFFER_UNDERFLOW => 


DS_ DEBUG. BUFFER_UNDERFLOW ("FILTER_UPDATE_FILTER", "UPDATE_FILTER") ; 


end; 
begin 
DS_REQ_TRACKS_UPDATE_FILTER.BUFFER.READ(LV_REQ@_TRACKS) ; 
exception 
when BUFFER_UNDERFLOW => 


DS_DEBUG. BUFFER_UNDERFLOW ("REQ_TRACKS_UPDATE_FILTER", “UPDATE_FILTER™") ; 


end; 


-- Execution trigger condition check. 
if True then 
begin 
UPDATE_FILTER ( 
REQ_TRACKS => LV_REQ_TRACKS, 
FILTER => LV_FILTER) ; 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION (“UPDATE_FILTER") ; 
EXCEPTION HAS OCCURRED <= true; 
EXCEPTION_ID += UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_FILTER_UPDATE_FILTER . BUFFER .WRITE(LV_FILTER) ; 
exception 
when BUFFER_OVERFLOW => 


DS_DEBUG. BUFFER_OVERFLOW( *“FILTER_UPDATE_FILTER", "UPDATE_FILTER~ )\; 


end; 
begin 

DS_FILTER_HANDLE_QUERY . BUFFER .WRITE(LV_FILTER) ; 
exception 

when BUFFER_OVERFLOW => 

DS_ DEBUG. BUFFER_OVERFLOW ( “FILTER_HANDLE_QUERY", “UPDATE_FILTER"); 
end; 
end 16; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG . UNHANDLED_EXCEPTION ( 
“UPDATESELILTER", 
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PSPL_EXCEPTICN’ IMAGE(EXCEPTION_ID) } ; 
end it; 
end UPDATE_FILTEPR_DRIVER; 


procedure UPDATE_TRACKS_PPRIVER is 
LV_FEED_TPRACKS : TPACKS PKG.TPRACKS; 
LY_TPACK_DB TRACKS _PKG. TRACKS; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 


-- Data trigger checks. 


-- Data stream reads. 
begin 
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DSEPEED. TRACK SSUREATE_ TRACKS BUFFER .PEAD{LV_FEED_TRACKS) ; 


exception 
when BUFFER_UNDERFLOW => 


DS_DEBUG . BUFFER_UNDERFLOW ("FEED_TRACKS_UPDATE_TRACKS", 


end; 
begin 
DS_TRACK_DB_UPDATE_TRACKS. BUFFER. READ (LV_TRACK_DB) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW( "TRACK_DB_UPDATE_TRACKS", 
end; 


-- Execution trigger condition check. 
if True then 
begin 
UPDATE_TRACKS ( 
FEED_TRACKS => LV_FEED_TRACKS, 
TRACK_DB => LY_TRACK_DB) ; 
exception 
when others => 
DS_ DEBUG . UNDECLARED_EZXCEPTION("UPDATE_TRACKS") ; 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 


--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_TRACK_DB_UPDATE_TRACKS. BUFFER .WRITE(LV_TRACK_DB) ; 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG .. BUFFER_OVERFLOW("TRACK_DB_UPDATE_TRACKS", 
end; i 
begin 
DS_TRACK_DB_HANDLE_QUERY . BUFFER .WRITE(LV_TRACK_DB) ; 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG. BUFFER_OVERFLOW("TRACK_DB_HANDLE_ QUERY", 
end; 
end if; 


-~ PSDL Exception handler. 
if EXCEPTION _HAS_OCCURRED then 
DS_DEBUG . UJHANDLED_EXCEPTION ( 


eerem 2 SRF -Fere a aes ™ th 


"UPDATE_TPACKS") ; 


"UPDATE_TRACKS") ; 


"UPDATE_TRACKS") ; 


“UPDATE _TRACKS™) 


PSDL_EXCEPTICN’ IMAGE{ EXCEPTICN_ID) ); 
end if; 
end UPDATE_TPRACKS_DRIVEP; 


procedure BUSINESS_RULES_MANAGEP_DRIVEP is 
LV_CLIENT_REQ : MESSAGE_PKG.MESSAGE; 
LV_SRV_RESPONSE : MESSAGE_PKG.MESSAGE; 
LV_MOD_RULES : ADMINISTEPR_PKG.ADMINISTER; 
LV_VALID_CLIENT_REQ : MESSAGE _PKG.MESSAGE; 
LV_VALID_SRV_RESPONSE : MESSAGE_PKG.MESSAGE; 


EXCEPTION_HAS_OCCURPED: BOOLEAN := FALSE; 
EACEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 
-- Data stream reads. 
begin 


DS_CLIENT_REQ_BUSINESS_RULES_MANAGEP.. BUFFER.READ({LV_CLIENT_REQ) ; 


exception 
when BUFFER_UNDERFLOW => 


DS_DEBUG . BUFFER_UNDEPFLOW ("CLIENT_REQ_BUSINESS_RULES_MANAGER", 


ULES_MANAGER") ; 
end; 
begin. 
DS_MOD_RULES_BUSINESS_PULES_MANAGER . BUFFER. READ (LYV_MOD_RULES) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW { "MOD_RULES_BUSINESS_RULES_MANAGER ", 
LES_MANAGER ") ; 
end; 
begin 
DS_SRV_RESPONSE_BUSINESS_RULES_MANAGER. BUFFER . READ ( 
LV_SRV_RESPONSE) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG . BUFFER_UNDERFLOW ( 
“SRV_RESPONSE_BUSINESS_RULES_MANAGER", "BUSINESS_RULES_MANAGER") ; 
end; 
-- Execution trigger condition check. 
if True then 
begin 
BUSINESS_RULES_MANAGER ( 
CLIENT_REQ => LV_CLIENT_REO, 
SRV_RESPONSE => LV_SRV_RESPONSE, 
MOD_RULES => LV_MOD_RULES, 
VALID_CLIENT_REO => LV_VALID_CLIENT_REQO, 
VALID_SRV_RESPONSE => LV_VALID_SRV_RESPONSE) ; 
exception 
when others => 
DS_DEBUG . UNDECLARED_EXCEPTION ("BUSINESS_RULES_MANAGER ") ; 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-~ Other constraint option translations. 
--Unconditional output translations. 


if not EXCEPTION_HAS_OCCURRED then 
begin 


"BUSINESS_R 


*“BUSINESS_RU 


bs5 


DS_MOD_RULES_BUSINESS_PULES_MANAGER . BUFFER .WRITE(LV_MOD_RULES) ; 


exception 
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DS_DEBUG. BUFFER_OVERFLOW ( "MOD_PULES_BUSINESS_PULES_MANAGER", 


.caps/s 


“BUSINESS RULES 
_MANAGER") ; 
end; 
end if; 
if not EXCEPTICN_HAS_CCCUPRED then 
begin 
DS_VALID_CLIENT_REQ_SERVEP_THREAD_MANAGER. . BUFFER.WRITE(LY_VALID_CLIENT_REQO) ; 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG. BUFFER_OVERFLOW ( "VALID_CLIENT_REQ SERVER_THREAD_MANAGER", 
_RULES_MANAGER" ) ; 
end; 
end if; 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_VALID_SRV_RESPONSE_CLIENT_THREAD_MANAGER . BUFFER.WRITE(LV_VALID_SRV_RES PONSE 


"BUSINESS 


exception 
when BUFFER_OVERFLOW => 
DS_DEBUG. BUFFER_OVERFLOW{ "VALID_SRV_RESPONSE_CLIENT_THREAD_MANAGER", 
SS_RULES_MANAGER") ; 
end; 
end if; 


"BUSINE 


~~ PSDL Exception handler. 
if EXCEPTION_HAS_ OCCURRED then 
DS_DEBUG . UNHANDLED_EXCEPTION { 
"BUSINESS _RULES_ MANAGER", 
PSDL_EXCEPTION’ IMAGE (EXCEPTION_ID) ) ; 
end if; 
end BUSINESS_RULES_MANAGEP._DRIVER; 


procedure CLIENT_THREAD_MANAGER_DRIVER is 
LV_AD_SUB_ALERTS : ALERT_PKG.ALERT; 
LV_AD_SUB_DATA : DB_RECORD_PKG.DB_RECORD; 
LV_AD_SUB_MAP : MAP; 
LV_AD_SUB_MSGS MESSAGE_PKG.MESSAGE; 
LV_AD_SUB_TRACKS : TRACKS_PKG.TRACKS; 
LV_PRINT_REQ : MESSAGE_PKG.MESSAGE; 
LV_REQSGERTIFICATE CERTIFICATE PKG.CERTIFICATE; 
LV_REQAKEY < KEY SPKGcREY: 
LV_REQ_SIGNATURE : SIGNATURE_PKG.SIGNATURE; 
LV_SECURE_MSG_OUT : MESSAGE_PKG.MESSAGE; 
LV_VALID_SRV_RESPONSE MESSAGE_PKG .MESSAGE; 
LV_AD_DEL_ALERTS ALERT_PKG.ALERT; 
LV_AD_DEL_DATA : DB_RECORD_PKG.DB_RECORD; 
LV_AD_DEL_MAP MAP; 
LV_AD_DEL_MSGS : MESSAGE PKG.MESSAGE; 
LV_AD_DEL_TRACKS : TRACKS_PKG.TRACKS; 
LV_CLIENT_REQO ; MESSAGE_PKG MESSAGE; 
[VetSseCERTIPICATE =) CERTIFICATESERG- CERTIFICATE: 
LVlTSSakeyY = KEY _ PKG. KEY; 
LV_ISS_SIGNATURE SIGNATURE_PKG.SIGNATURE; 
LV_PRINT_RESPONSE MESSAGE_PKG.MESSAGE; 


EXCEPTION_HAS_OCCURRED: BOOLEAN := 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 
-- Data stream reads. 
begin 
DS_AD_SUB_ALERTS_CLIENT_THREAD_MANAGER. BUFFER.READ(LV_AD_SUB_ALERTS) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW ("AD _SUB_ALERTS_CLIENT_THREAD_MANAGER", 
D_MANAGER") ; 


FALSE; 


"CLIENT_THREA 


41 . titi 
end; 
begin 
DS_AD_SUB_DATA_CLIENT_THREAD_MANAGEP . BUFFEP .READ{ LY_AD_SUB_DATA: ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUPFFER_UNDEPFLOW ("AD_SUB_DATA_CLIENT_THREAD_MANAGER", “CLIENT_THR 
EAD_MANAGER") ; 
end; 
begin 
DS_AD_SUB_MAP_CLIEtNT_THREAD_MANAGER . BUFFER .READ(LY_AD_SUB_MAP;j ; 
exception 
when BUFFER_UNDERFLOW => 
DS_ DEBUG. BUFFER_UNDERFLOW ("AD_SUB_MAP_CLIENT_THREAD_MANAGER", "“CLIENT_THRE 
AD_MANAGER") ; 
end; 
begin 
DS_AD_SUB_MSGS_CLIENT_THPREAD_MANAGEP.. BUFFER .READ({LV_AD_SUB_MSGS) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW ({""AD_SUB_MSGS_CLIENT_THREAD_MANAGER", “CLIENT_THR 
EAD_MANAGER") ; 
end; 
begin 
DS_AD_SUB_TRACKS_CLIENT_THREAD_MANAGER. BUFFER.READ({LV_AD_SUB_TRACKS) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW ("AD _SUB_TRACKS_CLIENT_THREAD_MANAGER", “CLIENT_T 
HREAD_MANAGER") ; 
end; 
begin 
DS_CLIENT_REQ_CLIENT_THREAD_MANAGER . BUFFER. READ ( 
LV_CLIENT_REQ) ; iO 
exception LV a) 
when BUFFER_UNDERFLOW => a 
DS_DEBUG . BUFFER_UNDERFLOW { 
"CLIENT_REQ_CLIENT_THREAD_MANAGER", “CLIENT_THREAD_MANAGER") ; 
end; 
begin 
DS_PRINT_REQ_CLIENT_THREAD_MANAGER. BUFFER.READ{ LV_PRINT_REQ@) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW ("PRINT_REQ_CLIENT_THREAD_MANAGER", “CLIENT_THREA 
D_MANAGER") ; 
end; 
begin 
DS_REQ_CERTIFICATE_CLIENT_THREAD_MANAGER. BUFFER .READ(LV_REQ_CERTIFICATE) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG . BUFFER_UNDERFLOW ("REQ_CERTIFICATE_CLIENT_THREAD_MANAGER", “CLIENT 
_THREAD_MANAGER") ; 
end; 
begin 
DS_REQ_KEY_CLIENT_THREAD_MANAGER. BUFFER .READ(LV_REQ_KEY) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG . BUFFER_UNDERFLOW ("REQ_KEY_CLIENT_THREAD_MANAGER", "CLIENT_THREAD_ 
MANAGER") ; 
end; 
begin 
DS_REQ_SIGNATURE_CLIENT_THREAD_MANAGER . BUFFER .READ(LV_REQ_SIGNATUPE) ; 
exception 


when BUFFER_UNDERFLOW => 
DS_DEBUG . BUFFER_UNDERFLOW ( ""REQ_SIGNATURE_CLIENT_THREAD_MANAGER", 
HREAD_MANAGER") ; 
end; 
begin 
DS_SECURE_MSG_OUT_CLIENT_THREAD_MANAGER . BUFFER. READ (LV_SECURE_MSG_OUT) ; 
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exception 
when BUFFER_UNDEPFLOW => 


DS_DEBUG. BUFFER_UNDERFLOW { *SECURE_MSG_OUT_CLIENT_THREAD_MANAGER", "“CLIENT_THRE 


AD_MANAGER") ; 
end; 
begin 
DS_VALID_SP.V_PRESPONSE_CLIENT_THREAD_MANAGEP. . BUFFER. PEAD(LY_VALID_SPV_RESPONSE) ; 
exception 
when BUFFER_UN-DEP.FLOW => 


DS_DEBUG. BUFFER_UNDERFLOW ( "VALID_SRV_RESPONSE_CLIENT_THREAD_MANAGER", "CLIENT_ 


THREAD_MANAGER" ) ; 
end; 


-- Execution trigger condition check. 
if True then 
begin 
CLIENT_THREAD_MANAGER ({ 
AD_SUB_ALERTS => LVY_AD_SUB_ALERTS, 
AD_SUB_DATA => LV_AD_SUB_DATA, 
AD_SUB_MAP => LV_AD_SUB_MAP, 
AD_SUB_MSGS => LV_AD_SUB_MSGS, 
AD_SUB_TRACKS => LV_AD_SUB_TRACKS, 
PRINT_REO => LV_PRINT_REO, 
REQ CERTIFICATE => LV_REQ CERTIFICATE, 
REQ_KEY => LV_REQ_KEY, 
REQ SIGNATURE => LV_REQ_SIGNATURE, 
SECURE_MSG_OUT => LV_SECURE_MSG_OUT, 
VALID_SRV_RESPONSE => LV_VALID_SRV_RESPONSE, 
AD_DEL_ALERTS => LV_AD_DEL_ALERTS, 
AD_DEL_DATA => LV_AD_DEL_DATA, 
AD_DEL_MAP => LV_AD_DEL_MAP, 
AD_DEL_MSGS => LV_AD_DEL_MSGS, 
AD_DEL_TRACKS => LY_AD_DEL_TRACKS, 
GPE ntereOG => LY SCLIENT_REOQ, 
ISS_CERTIFICATE => LV_ISS_CERTIFICATE, 
DSScREY => LVZISS_KEY, 
ISS_SIGNATURE => LV_ISS_SIGNATURE, 
PRINT_RESPONSE => LV_PRINT_RESPONSE) ; 
exception 
when others => 
DS_DEBUG. UNDECLARED_EXCEPTION ( "CLIENT_THREAD_MANAGER” ) ; 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 


-- Other constraint option translations. 
--Unconditional output translations. 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_AD_DEL_ALERTS_ALERTS_DISPLAY_DB.BUFFER.WRI TE (LV_AD_DEL_ALERTS) ; 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG. BUFFER_OVERFLOW ("AD_DEL_ALERTS_ALERTS_DISPLAY_DB", “CLIENT_THREAD_M 


ANAGER"); 
end; 
end if; 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_AD_DEL_DATA_DATA_DISPLAY_DB. BUFFER .WRITE(LV_AD_DEL_DATA) ; 
exception 


when BUFFER_OVERFLOW => 
DS_DEBUG. BUFFER __OVERFLOW("AD_DEL_DATA_DATA_DISPLAY_DB", "“CLIENT_THREAD_MANAG 


end; 
end if; 
if not EXCEPTION_HAS_SCCUPRPREP then 
begin 
DS_AD_DEL_MAP_MAP_DISPLA?_DB. BUFFER .WPITE(LY_AD_DEL_MAP} ; 
exception 


when BUPFEP_OVEPRFLC!! => 
DS_DEBUG . BUFFER_OVERFLOW! "AD_DEL_MAP_MAP_DISPLAY_DB", “CLIEUT_THREAD_MAN 


AGER."}; 
end; 
end if; 
if not EXCEPTION_HAS_CCCURPED then 
begin 
DS_AD_DEL_MSGS_MSG_DISPLAY_DB.BUFFEP..WRITE(LV_AD_DEL_MSGS) ; 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG . BUFFER_OVERFLOW("AD_DEL_MSGS_MSG_DISPLAY_DB", "CLIENT_THPEAD_MA 
NAGER") ; 
end; 
end if; 
if not EXCEPTION_HAS_OCCURPPRED then 


begin 
DS_AD_DEL_TRACKS_TPACK_DISPLAY_DB.BUFFER.WRITE(LV_AD_DEL_TPACKS) ; 
exception 
when BUFFER_OVEPRFLOW => 
DS_DEBUG. BUFFER_OVEPFLCt( "AD_DEL_TRACKS_TRACK_DISPLAY_DB", "CLIENT_THREA 
D_MANAGER”) ; 
end; 
end if; 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_CLIENT_REQ_BUSINESS_RULES_MANAGER.BUFFER.WRITE { 
LV_CLIENT_REQ) ; ae) 
exception = 
when BUFFER_OVERFLOW => 
DS_DEBUG. BUFFER_OVERFLO'!( "CLIENT_REQ_BUSINESS_RULES_MANAGER", “CLIENT_TH 
READ_MANAGER") ; 
end; 
begin 
DS_CLIENT_REQ_CLIENT_THREAD_MANAGER . BUFFER .WRITE(LV_CLIENT_REQ) ; 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW{ "CLIENT_REQ_CLIENT_THREAD_MANAGER", “CLIENT_THR 
EAD_MANAGER") ; 
end; 
end if; 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_ISS_CERTIFICATE_SECURI Tr MANAGER . BUFFER .WRITE( LV_ISS_CERTIFICATE) ; 
exception 
when BUFFER_OVEPFLOW => 


DS_DEBUG.BUFFEPR EPFI.-. "27° I Pee pete ee”, CLE EN a Erik 
EAD_MANAGER") ; 
end; 
end if; 
if Net Bevery © | 
begin 


DSSS ErBELURI i: sete crt te. , 
exception 
when BUFFER_LOVEPFL..W - » 


DS_DEBUG. BUFFER _<VERELUW ("Iss FR _sbklUKI Tr MANAGER", "°*LIENT_THREAD_MANA 
GER"); 
end; 
end if; 
if not EXCEPTION_HAS_OCCURRED then 
begin 
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exception 


when BUFFER_“VEPRFLOW => 
DS_DEBUS. BUFFER_OVEPRFLOW( "ISS_SIGNATURE_SECURIT?_MANAGER", "CLIENT_THREAD_MA 


HAGER.") ; 
end; 
end if; 


if not EXCEPTICN_HAS_CCCUPPRED then 


begin 
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DS_PRINT_RESPCONSE_PRINT_MANAGER .BUFFER.WRITE(LV_PRINT_PES PONSE) ; 


exception 


when BUFFER_OVERFLOW => 


DS_DEBUG. BUFFEP_OVERFLOW( "“PRINT_RESPOCNSE_PRINT_MANAGER", 


GER} = 
end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG . UNHANDLED_EXCEPTION ( 
"CLIENT_THREAD_MANAGER", 


PSDL_ EXCEPTION’ I 
end if; 


MAGE (EXCEPTION _ID)); 


end CLIENT_THREAD_MANAGER_DRIVER; 


procedure SERVER_THREA 


D_MANAGER_DRIVER is 


LV_FTP_MSG_IN : MESSAGE_PKG.MESSAGE; 


LV_HTTP_MSG_IN : MES 
LV_SMTP_MSG_IN : MES 
LV_SNMP_MSG_IN : MES 
LV_UDP_MSG_IN : MESS 
LV_DELIVER_MAP : MAP 
LV_DEVICE_STATUS : B 
LY_TSSUESCERTIEICATE 
LV_ISSUESRKEY =: KEY_P 
LV_ISSUE_SIGNATURE : 
LV_JOB_SPOOLED_MSG 


SAGE_PKG.MESSAGE; 
SAGE_PKG.MESSAGE; 
SAGE_PKG.MESSAGE; 
AGE_PKG.MESSAGE; 
OOLEAN; 
PS SCERTIPICATE PKG.CERTIFICATE; 
KG.KEY; 
SIGNATURE_PKG.SIGNATURE; 
MESSAGE_PKG.MESSAGE; 


LV_NEW_TIME : TIMESTAMP_PKG.TIMESTAMP; 


LV_REGUESTSE EEE = ME 
LV_RESOURCE_PHYS_LOC 
LV_RESPOND_ALERTS : 
LV_RESPOND_MSG : MES 
LV_RESPOND_MSGS : ME 
LV_RESPOND_TEMPLATE 
LV_RESPOND_TRACKS 
LV_RESPOND_VALID_TRA 


SSAGE_PKG.MESSAGE; 
MESSAGE_PKG. MESSAGE; 

ALERT_PKG .ALERT; 

SAGE_PKG.MESSAGE; 

SSAGE_PKG .MESSAGE; 

MESSAGE_PKG .MESSAGE; 
TRACKS_PKG. TRACKS ; 
CKS : TRACKS_PKG.TRACKS; 


LV_SUBSCRIBE_DB_CHANGES : DB_RECORD_PKG.DB_RECORD; 


LV_SUBSCRIBE_TRACKS 
LV_VALID_CLIENT_REQ 
LV_ADMINISTER_DEVICE 
LV_CSSBDELZTRACKS =: T 


TRACKS_PKG. TRACKS; 
MESSAGE_PKG .MESSAGE; 
DEVICE PRG DEVICE; 
RACKS_PKG. TRACKS; 


LV_FEED_MSGS : MESSAGE_PKG.MESSAGE; 


LV_PRINT_REQUEST : M 
LV2REGCEIVE ELLE: ME 
LV_REQ_ALERTS : ALER 


ESSAGE_PKG. MESSAGE; 
SSAGE_PKG.MESSAGE ; 
T_PKG ALERT; 


LV_REQ_DATA : DB_RECORD_PKG.DB_RECORD; 


LV_REGSRESOURCE = ME 
LVZAREG TEMPLATE = ME 
LV_REQ_TRACKS : TRAC 
LV_REQUEST_CERTIFICA 
i VOREQUESTAKEY>: KEY 
LV_REQUEST_MAP : MAP 
LV _REQUEST_MSGS =: ME 
LV_REQUEST_SIGNATURE 
LV_REQUEST_TRACKS 
LV_RESPOND_DB_CHANGE 
LV_SESSION_CONTROL 


SSAGE_PKG .MESSAGE; 
SSAGE_PKG .MESSAGE ; 
KS_PKG. TRACKS; 


fe s CERTIEICATE PRG CERTIFICATE; 


— PKG. KEY? 
SSAGE_PKG.MESSAGE; 
: SIGNATURE_PKG. SIGNATURE; 
TRACKS PKG. TRACKS; 
DB_RECORD_PKG.DB_RECORD; 
MESSAGE_PKG.MESSAGE; 
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LV_SESSION_DATA : MESSAGE_PKG.MESSAGE; 
LV_SRV_RESPONSE : MESSAGE_PKS.MESSAGE; 


EXCEPTION_HAS_OCCURPED: BOOLEAN := FALSE; 
EXCEPTION_ID: PSDL_EXCEPTION; 
begin 
-- Data trigger checks. 
-- Data stream reads. 
begin 
DS_FTP_MSG_IN_SERVER_THREAD_MANAGEP .BUFFER.PREAD(LY_FTP_MSG_IN) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW ("FTP_MSG_IN_SEPRVER_THPEAD_MANAGER”, “SERVER THRE 
AD_MANAGER") ; 
end; 
begin 
DS_HTTP_MSG_IN_SERVER_THREAD_MANAGER. BUFFER.READ(LV_HTTP_MSG_IN) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW (“HTTP_MSG_IN_SERVEPR_THREAD_MANAGER", “SERVER_THR 
EAD_MANAGER") ; 
end; 
begin 
DS_SMTP_MSG_IN_SERVER_THREAD_MANAGER . BUFFER.READ(LV_SMTP_MSG_IN) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW ( "SMTP_MSG_IN_SERVER_THREAD_MANAGER", "“SEPRVER_THP. 
EAD MANAGER") ; 
end; 
begin 
DS_SNMP_MSG_IN_SEPVEP_THREAD_MANAGER. BUFFER .READ(LV_SNMP_MSG_IN) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW ( 
"SNMP_MSG_IN_SERVER_THREAD_MANAGER", "SERVER_THREAD_MANAGER") ; 
end; 
begin 
DS_UDP_MSG_IN_SERVER_THREAD_MANAGER . BUFFER. READ (LV_UDP_MSG_IN) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW ("UDP_MSG_IN_SERVER_THREAD_MANAGER", "“SERVER_THRE 
AD_MANAGER") ; 
end; 
begin 
DS_DELIVER_MAP_SERVER_THREAD_MANAGER. BUFFER .READ(LV_DELIVER_MAP) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW ("DELIVER_MAP_SERVER_THREAD_MANAGER", “SERVER_THR 
EAD_MANAGER") ; 
end; 
begin 
DS_DEVICE_STATUS_SERVER_THREAD_MANAGER. BUFFER .READ(LV_DEVICE_STATUS) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW ( "DEVICE_STATUS_SERVER_THREAD_MANAGER", “SERVER_T 
HREAD_MANAGER") ; 
end; 
begin 
DS_ISSUE_CERTIFICATE_SERVER_THREAD_MANAGER. BUFFER . READ(LV_ISSUE_CERTIFICATE) 
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exception 
when BUFFER_UNDERFLOW => 
DS_ DEBUG. BUFFER_UNDERFLOW { "ISSUE_CERTIFICATE_SERVER_THREAD_MANAGER”, "SERV 
ER_THREAD_MANAGER") ; 
end; 
begin 
DS_ISSUE_KEY_SERVER_THREAD_MANAGER. BUFFER .READ(LV_ISSUE_KEY) ; 
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exception 
when BUFFER_UNDERFLOW => 


DS_DEBUS. BUPFER_UNDERFLCt( "ISSUE_KEY_SEPRVER_THREAD_ MANAGER", “SEPVER_THREAD_MA 


NAGER") ; 
end; 
begin 
DS_ISSUE_SIGNATURE_SERVEPR_THREAD_MANAGEP.. BUFFER .READ(LV_ISSUE_SIGNATURE) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG . BUFFER_UNDERFLOW ( "ISSUE_SIGNATURE_SEPVER_THREAD_MANAGER", “SERVER_THR 
EAD_MANAGER ") ; 
end; 
begin 
DS_JOB_SPOOLED_MSG_SERVER_THREAD_MANAGEP.. BUFFER. .READ(LV_JOB_SPOOLED_MSG) ; 
exception 


when BUFFER_UNDERFLOW => 
DS_DEBUG . BUFFER_UNDERFLOW ("JOB_SPOOLED_MSG SERVER_THREAD_MANAGER", 
EAD_MANAGER"“) ; 
end; 
begin 
DS_NEW_TIME_SERVEPR_THREAD_MANAGER . BUFFER .READ(LV_NEW_TIME) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG . BUFFER_UNDERFLOW ( "NEW_TIME_SERVER_THPEAD_MANAGER", 


[SERVER THE 


“SERVER_THREAD_MAN 


AGEP.") ; 
end; 
begin 
DS_REQUEST_FILE_SERVER_THREAD_MANAGER . BUFFER .READ (LV_REQUEST_FILE) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW ( “REQUEST_FILE_SERVEP_THREAD MANAGER", “SERVER_THREAD 
_MANAGER"); 
end; 
begin 
DS_RESOURCE_PHYS_LOC_SERVER_THREAD_MANAGER. BUFFER .READ{ LV_RESOURCE_PHYS_LOC) ; 
exception 


when BUFFER_UNDERFLOW => 
DS_DEBUS. BUFFER_UNDERFLOW ( “RESOURCE_PHYS_LOC_SERVER_THREAD_MANAGER", “SERVER_T 
HREAD_MANAGER ") ; 
end; 
begin 
DS_RESPOND_ALERTS_SERVER_THREAD_MANAGER .BUFFER. READ (LV_RESPOND_ALERTS) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW ( "RESPOND_ALERTS_SERVER_THREAD_MANAGER", *"SERVER_THRE 
AD_MANAGER") ; 
end; 
begin 
DS_RESPOND_MSG_SERVER_THREAD_MANAGER. BUFFER .READ( LV_RESPOND_MSG) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW ({ "RESPOND_MSG_SERVER_THREAD_MANAGER", 
MANAGER") ; 
end; 
begin 
DS_RESPOND_MSGS_SERVER_THREAD_MANAGER . BUFFER . READ (LV_RESPOND_MSGS) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG . BUFFER_UNDERFLOW ( “RESPOND_MSGS_SERVER_THREAD_MANAGER", “SERVER THREAD 
_MANAGER") ; 
end; 
begin 
DS_RESPOND TEMPLATE_SERVER_THREAD_MANAGER . BUFFER . READ (LV_RESPOND_TEMPLATE) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG . BUFFER_UNDERFLOW ( “RESPOND_TEMPLATE_SERVER_THREAD_MANAGER", “SERVER_TH 
READ MANAGER"}. 


“SERVER_THREAD_ 
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end; 
begin 
DS_RESPOND_TRACKS_SERVEP_THREAD_MANAGEP .BUFFER.READ(LY_RESPOND TRACKS); 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDEPRFLC | “RESPOND_TRACKS_SERVEP_THREAD_MANAGEP", 
THREAD_MANAGER") ; 
end; 
begin 
DS_RESPOND_VALID_TRACKS_SERVER_THREAD_MANAGER . BUFFER. READ(LV_PRESPOND_VALID_T 
RACKS) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW j "RESPOND_VALID_TRACKS_SEPRVEPR_THREAD MANAGER", "S 
ERVER_THREAD_MANAGER"“) ; 
end; 
begin 
DS_SRV_RESPONSE_SERVEPR_THREAD_MANAGEP. . BUFFER. READ (LV_SRV_RESPCHNSE) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW ( “SRV_RESPONSE_SERVER_THREAD_MANAGER", 
READ MANAGER") ; 
end; 
begin 
DS_SUBSCRIBE_DB_CHANGES_SERVER_THREAD_MANAGER . BUFFER. READ(LV_SUBSCRIBE_DB_CH 
ANGES) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW ( "SUBSCRIBE_DB_CHANGES_SERVER_THREAD_MANAGER", "S 
ERVER_THREAD_MANAGER") ; 


"SERVER - 


TSERVER_ TH 


end; 
begin ON 
DS_SUBSCRIBE_TRACKS_SERVER_THREAD_MANAGER. BUFFER. READ { LF a) 
LV_SUBSCRIBE_TRACKS) ; = 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG . BUFFER_UNDERFLOW ( “SUBSCRIBE_TRACKS_SERVER_THREAD_MANAGER", “SERVE 
R_THREAD_MANAGER") ; 
end; 
begin 
DS_VALID_CLIENT_REQ_SERVER_THREAD_MANAGER . BUFFER. READ (LV_VALID_CLIENT_REQ) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG . BUFFER_UNDERFLOW ("VALID_CLIENT_RED_SERVER_THREAD_MANAGER", “SERVE 


R_THREAD_MANAGER"“) ; 
end; 
-- ExXeCULIonserigger condition check. 
if True then 
begin 
SERVER_THREAD_MANAGER ( 

FTP_MSG_IN => LV_FTP_MSG_IN, 
HTTP_MSG_IN => LV_HTTP_MSG_IN, 
SMTP_MSG_IN => LV_SMTP_MSG_IN, 
SNMP_MSG_IN => LV_SNMP_MSG_IN, 
UDP_MSG_IN => LV_UDP_MSG_IN, 
DELIVER_MAP => LV_DELIVER_MAP, 
DEVICE_STATUS => LV_DEVICE_STATUS, 
ISSUE_CERTIFICATE => LV_ISSUE_CERTIFICATE, 
TSSUEZKEY => LV_ISSUE_KEY, 
ISSUE_SIGNATURE => LV_ISSUE_SIGNATURE, 
JOB_SPOOLED_MSG => LV_JOB_SPOOLED_MSG, 
NEW_TIME => LV_NEW_TIME, 
REQUEST_FILE => LV_REQUEST_FILE, 
RESOURCE_PHYS_LOC => LV_RESOURCE_PHYS_LOC, 
RESPOND_ALERTS => LV_RESPOND_ALERTS, 
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RESPOND_TEMPLATE => LV_RESPOND_TEMPLATE, 
PESPOND_TPACKS => LV_RESPOND_TRACKS, 
PESPOND_VALID_TRACKS => LV_RESPOND_VALID_TPACKS, 
SUBSCRIBE_DB_CHANGES => LV_SUBSCPIBE_DB_CHANGES, 
SUBSCRIBE_TRACKS => LV_SUBSCPIBE_TRACKS, 
Vol DoCLL ENT PEO => LY VALID CLIENT Feo, 
ADMINISTER_DEVICE => LV_ADMINISTER_DEVICE, 
CS DEL_TPACKS => LV_CS_DEL_TPACKS, 
FEED_MSGS => LY_FEED_MSGS, 
PRINT_REQUEST => LV_PRINT_REQUEST, 
RECEIVE_FILE => LV_RECEIVE_FILE, 
PEO ALERTS => LV_REQ_ALERTS, 
REQ_DATA => LV_REQ_DATA, 
REQ RESOURCE => LV_REQ_RESOUPCE, 
REQ_TEMPLATE => LV_REQ_TEMPLATE, 
RE@e TRACKS => LV_REO_ TRACKS, 
REQUEST_CERTIFICATE => LV_REQUEST_CERTIFICATE, 
PEQUEST_KEY => LV_REQUEST_KEY, 
PREQUEST_MAP => LV_REQUEST_MAP, 
REQUEST_MSGS => LV_REQUEST_MSGS, 
REQUEST_SIGNATURE => LV_REQUEST_SIGNATURE, 
REQUEST_TRACKS => LV_REQUEST_TRACKS, 
RESPOND_DB_CHANGE => LV_RESPOND_DB_CHANGE, 
SESSION_CONTROL => LV_SESSION_CONTROL, 
SESSION_DATA => LV_SESSION_DATA, 
SRV_RESPONSE => LY_SRV_RESPONSE) ; 
exception 
when others => 
DS_DEBUG . UNDECLARED_EXCEPTION ("SERVER_THREAD_MANAGER"} ; 
EXCEPTION_HAS_OCCURRED := true; 
EXCEPTION_ID := UNDECLARED_ADA_EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 
~-Unconditional output translations. 


if not EXCEPTION_HAS_OCCURRED then 
begin 


DS_ADMINISTER_DEVICE_MOUNT_DEVICE. BUFFER .WRITE(LV_ADMINISTER_DEVICE) ; 


exception 
when BUFFER_OVERFLOW => 
DS_DEBUG. BUFFER_OVERFLOW ( “ADMINISTER_DEVICE_MOUNT_DEVICE", 
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exception 
when BUFFER_OVEPFLOW => 


DS_DEBUG. BUFFEP_OVEPFLOW( “FEED_MSGS_UPDATE_MSGS", "SERVEP_THPREAD_MANAGEP. 


end; 
end if; 
if not EXCEPTION_HAS_OCCUPRED then 
begin 
Doerr INT REQUEST CHECK. FOPR_FILE-BUPFER .WRITE(LY_PRINT_PEQUEST) ; 
exception 


when BUFFER_OVERFLOW => 


DS_DEBUG. BUFFEP_OVERFLCW( "PRINT_REQUEST_CHECK_FOR_FILE", "SERVER_THREAD_ 


MANAGER "} ; 
end; 
end if; 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_RECEIVE_FILE_CHECK_FOR_FILE. BUFFER .WRITE(LV_RECEIVE_ FILE); 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG . BUFFER_OVERFLOW( "RECEIVE_FILE_CHECK_FOR_FILE“, “SERVER_THREAD_M 
ANAGER.") ; 
end; 
end if; 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_REQ_ALERTS_ALERTS_UPDATE_FILTER. BUFFER .WRITE(LV_REQ_ALERTS) ; 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG. BUFFER_OVERFLCW( "REO_ALERTS_ALERTS_UPDATE_FILTEP.", "“SERVER_THRE 
AD_MANAGER"} ; 
end; 
end if; 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_REQ_DATA_RESOLVE_DATA_TY PE.BUFFER.WRITE(LV_REQ_DATA) ; 
exception 
when BUFFER_OVERFLOW => 
DS_ DEBUG. BUFFER_OVERFLOW( “REQ_DATA_RESOLVE_DATA_TYPE", “SERVER_THREAD_MA 
NAGER") ; 
end; 
end if; 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_REQ_RESOURCE_RESOLVE_RESOURCE_LOC. BUFFER .WRITE(LV_REQ_RESOURCE) ; 
"SERVER_THREAD_MA exception 


when BUFFER_OVERFLOW => 


NAGER ") ; 
end; DS_DEBUG. BUFFER_OVERFLOW( "REQ _RESOURCE_RESOLVE_RESOURCE_LOC", " SERVER_TH 
end if; READ_MANAGER" ) ; 
if mot EXCEPTION_HAS_OCCURRED then end; 
begin end if; 
DS_CS_DEL_TRACKS_CORREL_UPDATE_TRACKS . BUFFER .WRITE (LV_CS_DEL_TRACKS} ; if not EXCEPTION_HAS OCCUFFED Ctr 
exception begin 
when BUFFER_OVERFLOW => DSePEU TEMPLATE Thhil.acF 24305 kh eee eer | ei bs Oa ee 
DS_DEBUG. BUFFER_OVERFLOW( "CS_DEL_TRACKS_CORREL_UPDATE_TRACKS", "SERVER_THREA exception 
D_MANAGER") ; Wher Erie rte. 
end; DS_DEBU:s. BUFi &* i ee ee eee: , SERVER THeEA 
end if; D_MANAGER") ; 
if not EXCEPTION_HAS_ OCCURRED then end; 
begin end ai: 
DS_FEED_MSGS_ARCHIVE_MSGS .BUFFER.WRITE(LV_FEED_MSGS) ; if not EXCEPTION_HAS_ OCCURRED then 
exception begin 
when BUFFER_OVERFLOW => DS_REQ_TRACKS_UPDATE_FILTER.BUFFER.WRITE(LV_REQ_TRACKS) ; 
DS_DEBUG . BUFFER_OVERFLOW("FEED_MSGS_ARCHIVE_MSGS", "“SERVER_THREAD_MANAGER") ; exception 
end; when BUFFER_OVERFLOW => 
begin DS_DEBUG. BUFFER_OVERFLOW( "REQ_TRACKS_UPDATE_FILTER", *SERVER_THREAD_MANA 
DS_FEED._MSGS_UPDATE_ MSGS. BUFFER .WRITE(LV_FEED_MSGS) ; GERI. 
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end; 
end if; 
if not EXCEPTISN_HAS_CCCURRED then 
begin 
DS_PREQUEST_CEPRTIFICATE_VALIDATE_CERTIFICATE. BUFFER... WRITE(LV_REQUEST_CERTIFICAT 
E}; 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUS . BUFFER_OVERFLOW ( "REQUEST_CERTIFICATE_VALIDATE_CERTIFICATE", "SERVER 
_THREAD_MANAGEP ") ; 
end; 
end if; 
if not EXCEPTION_HAS OCCURRED then 
begin 
DS_PREQUEST_FKEY_VALIDATE_KEY.BUFFER .WRITE(LV_REQUEST_KEY) ; 
exception 
when BUFFER_OVEPRFLOW => 
DS_DEBUG . BUFFER_OVERF LOW ( “REQUEST_KEY_VALIDATE_KEY", "SERVER_THREAD_MANAGER" 


end if; 
if not EXCEPTION_HAS OCCURRED then 
begin 
DS_PEQUEST_MAP_LOCATE_MAP.BUFFER.WRITE(LV_REQUEST_MAP) ; 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG . BUFFER_OVERFLOW( "REQUEST_MAP_LOCATE_MAP", "SERVER_THREAD_MANAGER "} ; 
end; 
end if; 
if not EXCEPTION_HAS CCCUPRED then 
begin 
DS_PEQUEST_MSGS_MSG_UPDATE_FILTER. BUFFER .WRITE(LV_REQUEST_MSGS) ; 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG . BUFFER_OVERF LOW ( “REQUEST_MSGS_MSG_UPDATE_FILTER", "SERVER_THREAD_MA 
NAGER.") ; 
end; 
end if; 
if not EXCEPTION_HAS OCCURRED then 
begin 
DS_REQUEST_SIGNATURE_VALIDATE_SIGNATURE. BUFFER .WRITE(LV_REQUEST_SIGNATURE) ; 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG . BUFFER_OVERF LOW ( "REQUEST_SIGNATURE_VALIDATE_SIGNATURE", “SERVER_THR 
EAD_MANAGER ") ; 
end; 
end if; 
if not EXCEPTION_HAS_OCCCURRED then 
begin 
DS_REQUEST_TRACKS_CORREL_UPDATE_FILTER.BUFFER.WRITE (LV_REQUEST_TRACKS) ; 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG . BUFFER_OVERF LOW ( “REQUEST_TRACKS_CORREL_UPDATE_FILTER", “SERVER_THRE 
AD_MANAGER") ; 
end; ' 
end if; 
if not EXCEPTION_HAS_OCCURRED then 
begin 
DS_RESPOND_DB_CHANGE_UPDATE_TACTICAL_DB. BUFFER .WRITE(LV_RESPOND_DB_CHANGE) ; 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG . BUFFER_OVEPRF LOW ( "RESPOND_DB_CHANGE_UPDATE_TACTICAL. DB", "“SERVER_THR 
EAD_MANAGER") ; 
end; 
end if; 
if not EXCEPTION_HAS_CCCURRED then 
begin —— 





DS_SESSION_CONTRGL_SESSION_MANAGEPR . BUFFER. .WRITE(LY_SESSION_ CONTROL) ; 
exception 
when BUFFER_OVEPRFLOW => 
DS_DEBUG. BUFFEP_OVERFLoOW: "SESSION _CONTROL SESSION _MANAGER", "“SERVEP_THRE 


AD_MANAGER"“ ) ; 
end; 
end if; 
if not EXCEPTION_HAS_OCCUPPED then 
begin 
DS_SESSION_DATA_SESSION_MANAGER . BUFFER. .VIRITE(LV_SESSION_DATA} ; 
exception 


when BUFFER_OVERFLOW => 
DS_DEBUG. BUFFER_OVERFLOW( "SESSION_DATA_SESSION_MANAGER ", “SERVER_THREAD_ 
MANAGER“) ; 
end; 
end if; 
if not EXCEPTION_HAS OCCURRED then 
begin 
DS_SRV_RESPONSE_BUSINESS_PULES_MANAGER. BUFFER .WRITE(LV_SRV_RESPONSE) ; 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG . BUFFER_OVEPFLOW("SRV_PESPONSE_BUSINESS_RULES_MANAGER", “SERVER_ 
THREAD_MANAGER") ; 
end; 
begin 
DS_SRV_RESPONSE_SERVER_THREAD_ MANAGER . BUFFER .WRITE(LY_SPV_RESPONSE) ; 
exception 
when BUFFER_OVERFLOW => 
DS_DEBUG. BUFFER_OVERFLOW ( “SR V_RESPONSE_SERVER_THREAD_MANAGER", "SERVER _T 
HREAD_MANAGER") ; 
end; 
end ay ae 
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-- PSDL Exception handler. 
if EXCEPTION_HAS_OCCURRED then 
DS_DEBUG . UNHANDLED_EXCEPTION ( 
“SERVER_THREAD_MANAGER", 
PSDL_EXCEPTION’ IMAGE (EXCEPTION_ID)); 
end if; 
end SERVER_THREAD_MANAGER_DRIVER; 
end SAAWC_DRIVERS; 


package SAAWC_DYNAMIC_SCHEDULERS is 
procedure START_DYNAMIC_SCHEDULE; 
end SAAWC_DYNAMIC_SCHEDULERS; 


with SAAWC_DRIVERS; use SAAWC_DRIVERS; 
with PRIORITY_DEFINITIONS; use PRIORITY_DEFINITIONS; 
package body SAAWC_DYNAMIC_SCHEDULERS is 


task type DYNAMIC_SCHEDULE_TYPE is 
pragma priority (DYNAMIC_SCHEDULE_PRIORITY) ; 
entry START; 
end DYNAMIC_SCHEDULE_TYPE; 
for DYNAMIC_SCHEDULE_ TYPE’ STORAGE_SIZE use 100_000; 
DYNAMIC_SCHEDULE DYNAMIC_SCHEDULE_TYPE; 


task body DYNAMIC_SCHEDULE_TYPE is 
begin 
accept START; 
loop 
get_user_cmd_DRIVER; 
net work_DRIVER; 
alerts_display_db_DRIVER; 
data_display_db_DRIVER; 


Fi all Lj ee, ee = tte rims Tek ro 
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msg_display_db_DRIVEP,;; end START_DYNAMIC_ SCHEDULE; 
track_display_db_DRIVER; 
resolve_alerts_DRIVEF; end SAAWC_DYNAMIC_SCHEDULERFS; 
correlate_tracks_DPIVERF; 
msg_handle_quer:s_DRIVEP; 
update_time_DPIVEP; package SAAWC_STATIC_SCHEDULEPS is 
handle _quert_DRIVEF; procedure START_STATIC_SCHEDULE; 
business_rules_manager_DRIVER.; end SAAWC_STATIC_SCHEDULEFPS ; 
msg_out_manager_DRIVEP,;; 
print_manager_DRIVER; with SAAWC_DRIVERS; use SAAWC_DRIVERS; 
network_interface_in_DRIVEP; with PRIORITY_DEFINITIONS; use PRIORITY_DEFINITIONS; 
correl_handle_query_DPIVEP; with PSDL_TIMERS; use PSDL_TIMERS; 
securityv_manager_DRIVER; With tExiere; = use TEXTs10; 
session_manager_DRIVER; package body SAAWC_STATIC_SCHEDULERS is 
client_thread_manager_DRIVER; task type STATIC_SCHEDULE_TYPE is 
FTP_processor_in_DRIVER; pragma priority (STATIC_SCHEDULE_PPRIORITY) ; 
FTP_processor_out_DPRIVER; entry START; 
HTTP_processor_in_DRIVER; end STATIC “SCHEDULE_TY PEs 
HTTP_processor_out_DRIVER; for STATIC_SCHEDULE_TYPE’ STORAGE_SIZE use 200_000; 
SMTP_processor_in_DPIVER; STATICGSSGHEDULE : STATIC SCHEDULE TYPE; 
SMTP_processor_out_DRIVERP; task body STATIC_SCHEDULE_TYPE is 
SNMP_processor_in_DRIVER; PERIOD : duration; 
SNMP_processor_out_DRIVER; TADIL_J_START_TIME1 : duration; 
UDP_processor_in_DRIVER; TADIL_J_STOP_TIME1 : duration; 
UDP_processor_out_DRIVEP;; schedule_timer : TIMER := NEW_TIMER; 
server_thread_manager_DPIVER; begin 
network_interface_out_DRIVER; accept START; 
update_msgs_DRIVER; PERIOD := TARGET_TO_HOST(duration( 1.00000000000000E+00))}; 
alerts_update_filter_DRIVER; TADIL_J_START_TIME1 := TARGET_TO_HOST(duration( 0.00000000000000E+00) ); 
correl_update_tracks_DPIVEP; TADIL_J_STOP_TIME1 := TARGET_TO_HOST(duration( 1.00000000000000E-01))}); 
correl_update_filter_DPRIVER; START(schedule_timer) ; 
update_tactical_db_DRIVER; loop fon 
resolve_data_type_DRIVER; delay (TADIL_J_START_TIME1 - HOST_DURATION(schedule_timer) ); \O 
mount __device_DRIVER; TADIL_J_DRIVER; = 
locate_map_DRIVER; if HOST_DURATION(schedule_timer) > TADIL_J_STOP_TIME1 then 
archive_msgs_DRIVER; PUT_LINE("timing error from operator TADIL_J"); 
template_database_DRIVER; SUBTRACT_HOST_TIME_FROM_ALL_TIMERS (HOST_DURATION(schedule_timer) - TADIL_J 
msg_update_filter_DRIVER; _STOP_TIMEN); 
resolve_resource_loc_DRIVER; end if; 
check_for_file_DRIVER; 
validate_certificate_DRIVER; delay (PERIOD - HOST_DURATION(schedule_timer) } ; 
validate_key_DRIVER; RESET (schedule_timer) ; 
validate_signature_DRIVER; end loop; 
update_filter_DRIVER; end STATIC_SCHEDULE_TYPE; 
resolve_request_type_DRIVER; 
build_file_DRIVER; procedure START_STATIC_SCHEDULE is 
add_file_DRIVER; begin 
add_object_DRIVER; STATIC_SCHEDULE .START; 
add_record_DRIVER; end START_STATIC_SCHEDULE ; 
delete _file_DRIVER; 
delete_object DRIVER; end SAAWC_STATIC_SCHEDULERS; 
delete_record_DRIVER; 
mod_file_ DRIVER; 
mod_object_DRIVER; with SAAWC_STATIC_SCHEDULERS; use SAAWC_STATIC_SCHEDULERS; 
mod_record_DRIVER; with SAAWC_DYNAMIC_SCHEDULERS; use SAAWC_DYNAMIC_SCHEDULERS ; 
retrieve_file_DRIVER; with CAPS_HARDWARE_MODEL; use CAPS_HARDWARE_MODEL; 
retrieve_object _DRIVER; procedure SAAWC is 
retrieve_record_DRIVER; begin 
spool_file_ DRIVER; init_hardware_model ; 
format_response_DRIVER; Start_static_schedule; 
update_tracks_DRIVER; Sstart_dynamic_schedule; 

end loop; end SAAWC; 


end DYNAMIC_SCHEDULE_TY FE; 


procedure START_DYNAMIC_SCHEDULE is 
begin 
DYNAMIC_SCHEDULE.START; 


SAAWC.add_file.a Wed Jul 2 15:54:35 1997 1 


--filename: SAAWC.add_file.a 


--Author: Capt Matt Howel t 

--Date: 13 June 1997 

--Project: Thesis - A CAPS Prototype of the SAAWC 
--Purpose: This package adds DB_RECORDS types to database 


with text_io;use text_io; 
with DB_RECORD_PKG;use DB_RECORD_PKG; 


package ADD_FILE_PKG is 


procedure ADD_FILE(REQ_ADD._FILE : in DB_RECORD; FILE_ADD_DB : out DB_RECOPD) ; 


~ 


- 


end ADD_FILE_PKG; ‘ 


package body ADD_FILE_PKG is 


procedure ADD_FILE (REQ_ADD_FILE : in DB_RECORD; FILE_ADD_DB =: out DB_RECORD) is 


begin 


Put_line(Item => “Inside operator ADD FILE"); 


* 


end ADD_FILE; 


end ADD_FILE_PKG; 
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--filename: SAAWC.add_object.a 


--Author: Capt Matt Howell 


--~Date: 13 June 1997 
~-Project: Thesis - A CAPS Prototype of the SAAWC 
--Purpose: This package adds DB_RECORDS types to database 


with text_io;use text_io; 
with DB_RECORD_PKG;use DB_RECORD_PKG; 


package ADD_OBIJECT_PKG is 
procedure ADD_OBJECT(REQ_ADD_OBJ : in DB_RECORD; OBJ_ADD_DB 
end ADD_OBJECT_PKG; 
Package body ADD_OBJECT_PKG is 
procedure ADD_OBJECT (REQ_ADD_OBJ : in DB_RECORD; OBJ_ADD_DB 
begin 


Put_line(Item => “Inside operator ADD OBJECT"); 


* 


end ADD_OBJECT; 


end ADD_OBJECT_PKG; 


out DB_RECORD) ; 


- 
“- 


4 


t 


out DB_RECORD) 


is 
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SAAWC.add record.a Wed Jul 2 15:55:49 1997 ail 


--filename: SAAWC.add_record.a 


--Author: Capt Matt Howell 


-=Date: 13 June 1997 
--Project: Thesis - A CAPS Prototype of the SAAWC 
--Purpose: This package adds DB_RECORDS types to database 


with text_io;use text _io; 
with DB_RECORD_PKG;use DB_RECORD_PKG; 


package AODD_RECORD_PKG is 


procedure ADD. RECORD(PED ADD REC : in DR. RECORD; REC ADO. DB : out DB RECORD); 


Fa 


end ADD_RECORD_PKG; : 


Package body ADD_RECORD_PKG is 


tf 


procedure ADD RECORD (REQ_ADD_REC : in DB_PECORD; REC_ADD_DB : out OB_RECORD: i 


begin 


Put_line({Item => "Inside operator ADD RECORD"); 


% 


end ADD_RECORD; 


end ADD _RECOPRD_PKG; 
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--filename: SAAWC.administer.a 


--Author: Capt Matt Howell 


--Date: 12 Jun 97 
--Project: Thesis - A CAPS Prototype of the SAAWC 


--Purpose: 


(Meds: Eades ise wheter Po chee dere Obnee Cypar ADMIN DT Settite 


with text_io; 

use text_io; 

with File _name_PKG; 

use file _name. PKG; 
package ADMINISTEP_PKG is 
type ADMINISTER is record 


administer_name : file_name; 
request : Boolean := True; 


end record; 
function EMPTY return ADMINISTER; 
end ADMINISTER_PKG; 
package body ADMINISTER_PKG is 
function EMPTY return ADMINISTER is 
dunmy : ADMINISTER; 
begin 
dummy ,administer_name := (OTHERS => ’ ‘); 
return dummy; 
end EMPTY; 


end ADMINISTER_PKG; 


NN 
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SAAWC.alert.a Tue Jul 8 21:12:22 1997 


--filename: SAAWC.alert.a 


--Author: Capt Matt Howell 


==Dater i l2 Jumeg? 
--Project: Thesis - A CAPS Prototype of the SAAWC 


--Purpose: 


--This file is where I declare the type ALERT 


with text_io;use text_io; 

with file_name_PKG;use file_name_PKG; 
with TIMESTAMP_PKG;use TIMESTAMP_PKG; 
with DB_RECORD_PKG;use DB_RECORD_PKG; 
with TRACKS_PKG;use TRACKS_PKG; 


package ALERT_PkKG is 


--type alert_type is(DB_RECORD_ALERT, TRACKS_ALERT, UNK_ALERT) ; 
--type ALERT(Kind : alert_type); 


type Alert; 
type ALERT_ACCESS is access ALERT; 


-Lyp@ ALERT(Kind : alert lype) is record 2 
type ALERT is record 


alert_id : Natural := 0; 

alert_pri : Natural range 1..5; 

alert_sre : String(1..10) := s 
alerezdest : String(1.<.10) <=" mes 
request : Boolean :< True; 


-- case Kind is 

-- when DB_PECORD_ALEPT => 

-- db_record_alt : DB_PECORD; 
-- when TRACKS_ALERT => 

-< tracks_alt : TRACKS; 

-- when UNK_ALERT => 

=m NULL; 

-- when OTHERS => 

== NULL; 

-- end case; 


db_record_alert : DB_RECORD_ACCESS := NULL; 
tracks_alert : TRACKS_ACCESS := NULL; 


end record; 
function EMPTY return ALERT; 
end ALERT_PKG; 
package body ALERT_PKG is 
function EMPTY return ALERT is 
dummy : ALERT; 
begin 
return dummy; 


end EMPTY; 


end ALERT_PKG; 
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--filename: SAAWC.alerts_display_db.a 


--Author: Capt Matt Howell 
--~Date: 1 July 1997 


--Project: Thesis - A CAPS Prototype of the SAAWC 
--Purpose: This package displays alerts to the user 


with text_io;use text_io; 
with ALERT_PKG;use ALERT_PKG; 


package ALERTS. DISPLAY_DB..PKG is 


procedure ALEPTS_DISPLAY_DB(AD_DEL_ALERTS 
FILTER_ALERTS 


end ALERTS_DISPLAY_DB_PKG; 


package body ALERTS_DISPLAY_DB_PKG is 


procedure ALERTS_DISPLAY_DB(AD_DEL_ALERTS 
FILTER_ALERTS : 


begin 


in 
in 


in 


* 


ALERT; AD_SUB_ALERTS 


ALERT) ; 


ALERT; 
ALERT) 


AD_SUB_ALERTS 
is 


Put_line(Item => “Inside operator ALERTS_DISPLAY_DB"):; 


end ALERTS_DISPLAY_DB; 


end ALERTS_DISPLAY_DB_PKG; 


» 


out ALERT; 


- 


out ALERT; 
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SAAWC.alerts_update_filter.a Wed Jul 2 15:57:23 1997 


--filename: SAAWC.alerts_update_filter.a 


--Author: Capt Matt Howell 


--Date: 1 July 1997 
--Project: Thesis ~ A CAPS Prototype of the SAAWC 
--Purpose: This package updates the alert filter as the user desires 


with text_lo;use text_io; 
with ALERT_PKG;use ALERT_PKG; 
with TRACKS _PKG;use TRACKS_PKG; 


package ALERTS_UPDATE_FILTER_PKG is 


pEQGeccdure ALERTSSUPDATE FILTER (REO ALERTS = im ALERT; ALERTS PILTER 2 oul -TRAC KS): 


Ake 


end ALERTS_UPDATE_FILTER_PKG; 
package body ALERTS_UPDATE_FILTER_PKG is 


procedure ALERTS_UPDATE_FILTER(REO_ALERTS : in ALERT; ALERTS_FILTER : out TRACKS) 
begin 

Put_line(Item => "Inside operator ALERTS_UP®ATE_FILTER") ; 
end ALERTS_UPDATE_FILTER; 


end ALEPRTS_UPDATE,_FILTER_PKG; 


is 
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--filename: SAAWC.archivé_msgs.a 


--Author: Capt Matt Howell 


--Date: 1 July 1997 
--Project: Thesis - A CAPS Prototype of the SAAWC 
--Purpose: This package receives messages and updates the message database 


with text_io;use text_io; 
with MESSAGE_PKG;use MESSAGE_PKG; 


package ARCHIVE_MSGS_PKG is 


procedure ARCHIVE_MSGS(FEED_MSGS: in MESSAGE; MSG_MESSAGE_DB: out MESSAGE) ; 


end ARCHIVE_MSGS_PKG; VF 


package body ARCHIVE_MSGS_PKG is 


. 


procedure ARCHIVE_MSGS(FEED_MSGS: in MESSAGE; MSG_MESSAGE_DB: out MESSAGE) is 


begin 


Put_line(Item => "Inside operator ARCHIVE_MSGS") ; 


0 


end ARCHIVE_MSGS; 


end ARCHIVE_MSGS_PKG; 
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SAAWC.bits.a Tue Jul 8 21:15:00 1997 


--filename: SAAWC .bits.a 


--Author: Capt Matt Howell 

~=Dates 12 dias, 

--Project: Thesis - A CAPS Prototype of the SAAWC 
-~-Purpose: 


--This file is where 1 declare the type BITS 


with text_io;use text_io; 
with file_name_PKG;use file name_PKG; 
with MESSAGE_PKG;use MESSAGE_PKG; 


package BITS_PKG is 
type BITS is record 
-- bits_message : MESSAGE(Kind => UNK_MSG); 
bits_message : MESSAGE; 
end record; 
function EMPTY return BITS; 
end BITS_PKG; 
package body BITS_PKG is 
function EMPTY return BITS is 
dummy : BITS; 
begin 
return dummy; 


end EMPTY; 


end BITS_PKG; 


Ss 
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--filename: SAAWC.build_file.a : _ — 
--Author: Capt Matt Howell 

--Date: 1 July 1997 

--Project: Thesis - A CAPS Prototype of the SAAWC 

--Purpose: This package takes screen info and writes it to a file for printing 


with text_io;use text_io; 
with PARAM_PKG;use PARAM_PKG; 
with PATH_PKG;use PATH_PKG; 


package BUILD_FILE_PKG is 


procedure BUILD_FILE(SCREEN..PARAM : inv PARAM; FILE NAME out PATH )ae- 


4 


¢ 


end BUILD_FILE_PKG: 


package body BUILD_FILE_PKG is 


out PATH) is 


procedure BUILD_FILE(SCREEN_PARAM : in PARAM; FILE_NAME 
begin 

Put_line(Item => "Inside operator BUILD_FIDE"); 
end BUILD_FILE; 


end BUILD_FILE_PKG; 
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SAAWC.business_rules_manager.a Wed Jul 2 15:59:53 1997 


--filename: SAAWC.business_rules_manager.a 


~-Author: Capt Matt Howell 


--Dates 1 July) 1997 
--~Project: Thesis - A CAPS Prototype of the SAAWC 
--Purpose: This package allows the user to modify the way clients and servers behave 


with text_io;usSe text_io; 
with MESSAGE_PKG;use MESSAGE_ PKG; 
with ADMINISTER_PKG;use ADMINISTER_ PKG; 


package BUSINESS_RULES_MANAGER_PKG is 


procedure BUSINESS_RULES_MANAGER (CLIENT_REQ : in MESSAGE; SRV_RESPONSE. » in’ MESSAGE; 
MOD_RULES : in ADMINISTER; VALID_CLIENT_.REQ@ : out ME 


SSAGE; 
VALID_SRV_RESPONSE : out MESSAGE) ; 


end BUSINESS_RULES_MANAGER_PKG; 


package body BUSINESS_RULES_MANAGEP._PKG is 


procedure BUSINESS RULES MANAGER (CLIENT_REQ : in MESSAGE; SRV_PESPONSE : in MESSAGE; 
MOD RULES : iw ADMINISTER; VALID CLIENT PRG os oul) ME 


SSAGE; 
VAILID_SRV_RESPONSE : out MESSAGE) is 
begin 
Put_line({tem => "Inside operator BUSINESS_PULES MANAGER"): 


end BUSINESS PULES_MANAGER ; 


end BUSINESS PULES_MANAGER_PKG; 
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--Author: Capt Matt Howell 

==Dqgte:  P2auies 

--Project: Thesis - A CAPS Prototype of the SAAWC 
-~Purpose: 


--This file is where I declare the type CERTIFICATE 


with text_io; 

use text_io; 

with file_name_PFG; 

use file _name_PKG; * 
package CERTIFICATE_PKG is 

Cype CERTIFICATE is record 


certificate_name : file name; 
request : ‘Boolean := True; 


end record; 
function EMPTY return CERTIFICATE; 
end CERTIFICATE_PKG; 
package body CERTIFICATE_PKG is 
function EMPTY return CERTIFICATE is 
Gummy : CERTIFICATE; 
begin 


dummy .certificate_name := (OTHERS => ’ *); 
return dummy; 


end EMPTY; 


end CERTIFICATE_PKG; 
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SAAWC.check_for_file.a Tue Jul 8 09:36:18 1997 


--filename: SAAWC.check._for_file.a 


- = 


--Author: Capt Matt Howell 

--DPate: 1 Julyelaey 

--Project: Thesis - A CAPS Prototype of the SAAWC 

-~-Purpose: This package receives a print request and determines if the file exists 


-- or needs to be built 


with text_io;use text_io; 

with MESSAGE_PKG;use MESSAGE_PKG; 
with PATH_PKG;use PATH_PKG; 

with PARAM_PKG;use PARAM_PKG; 


package CHECK_FOR_FILE_PKG is on 


procedure CHECK_FOR_FILE(PRINT_REQUEST : in MESSAGE; RECEIVE_FILE : in MESSAGE; 
FILE : out PATH; REQUEST_FILE : out MESSAGE; 


SCREEN_PARAM : out PARAM); 


end CHECK_FOR_FILE_PKG; 
package body CHECK_FOR_FILE_PKG is 
procedure CHECK_FOR_FILE(PRINT_REQUEST : in MB6SAGE; RECEIVE_FILE : in MESSAGE; 


FILE : out PATH; REQUEST_FILE : out MESSAGE; 
SCREEN_PARAM : out PARAM) is 


begin 
Put_line(Item => "Inside operator CHECK_FOR_FILE"); 
end CHECK_FOP_FILE; 


end (GHECK=FOR@E ILE PKG; 
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--filename: SAAWC.client_thread_manager.a 
-~Author: Capt Matt Howell 

--Date: 1 July 1997 

--Project: Thesis - A CAPS Prototype of the SAAWC 


--Purpose: This package tracks and handles all messages from clients 


with text_io;use text_io; 

with ALERT_PKG;use ALERT_PKG; 

with DB_RECORD_PKG;use DB_RECORD_PKG; 
with MAP_PKG;use MAP_PKG; 

with MESSAGE_PKG;use MESSAGE_PKG; 

with TRACKS_PKG;use TRACKS_PKG; 

with CERTIFICATE_PKG;use CERTIFICATE_PKG; 
with KEY_PKG;usSe KEY_PKG; 

with SIGNATURE_PKG;use SIGNATURE_PKG; 


package CLIENT_THREAD_MANAGER_PKG is 


procedure CLIENT_THREAD_MANAGER (AD_SUB_ALERTS : 
AD_SUB_MAP : in 
AD_SUB_TRACKS : 
REO _CERTIE PCATS: 
REO_SIGNATURE 
SAGE; 


Ye 


in ALERT; AD_SUB_DATA : in DB_RECORD;: 


MAP; AD_SUB_MSGS : in MESSAGE; 

in TRACKS; PRINT_REO : in MESSAGE; 
Selmi CeRiiE LCATE SEER» tL REY; 
in SIGNATURE; SECURE_MSG_OUT : in MES 


VALID_SRV_RESPONSE : in MESSAGE; AD_DEL_ALEPTS : out 


ALERT; 


AD_DEL_DATA : out DB_RECORD; AD_DEL_MAP : out WAP; 
AD_DEL_MSGS : out MESSAGE; AD_DEL_TRACKS :; out TRACKS 


FICATE; 


CLIENT_REO : out MESSAGE; ISS_CERTIFICATE : out CERT'I 


TSSJKE Vos Out REx es | SS cel GiaAlTURE < GulySIGhA TURE: 


PRINT_PESPONSE 
end CLIENT_THREAD_MANAGER_PKG; 
package body CLIENT_THREAD_MANAGER_PKG is 


procedure CLIENT.THREAD_MANAGER(AD_SUB_ALERTS : 
AD_SUB_MAP : in 
AD_SUB_TRACKS 
REO CERTIFICATE 
REQ_SIGNATURE : 
SAGE; 


out MESSAGE) ; 


in ALERT; AD_SUB_DATA : in DB_RECOPRD; 
MAP; AD_SUB_MSGS : in MESSAGE; 

in TRACKS; PRINT_REQ : in MESSAGE; 

s DMO ER ITE UCATE; -REOLKEY =i elm KEt; 
in SIGNATURE; SECURE_MSG_OUT : in MES 


VALID_SRV_RESPONSE : in MESSAGE; AD_DEL_ALERTS : out 


ALERT; 


AD_DEL_DATA : out DB _RECORD; AD _DEL_MAP : out MAP; 
AD_DEL_MSGS : out MESSAGE; AD_DEL_TRACKS : out TRACKS 


=e 


CLIENT REO =: out MESSAGE; ISsSsGERTIPICATE : OuL CERTI 


FICATE; 


ISS_KEY : out KEY; ISS_SIGNATURE +: out SIGNATURE; 


PRINT_RESPONSE 


begin 


out MESSAGE) is 


Put_line(Item => “Inside operator CLIENT_THREAD_MANAGER "} ; 


end CLIENT_THREAD_ MANAGER; 


end CLIENT _THREAI) MANAGER _PKG; 


» 
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SAAWC.correl_ handle query.a Wed Jul 2 16:56:23 1997 


--filename: SAAWC.correl_handle_query.a 


--Author: Capt Matt Howell 


-=Dates> 1). Julyveies7 
--Project: Thesis - A CAPS Prototype of the SAAWC 
--Purpose: This package determines if a requested track is a valid one 


with text_io;use text_io; 
with TRACKS_PKG;use TRACKS_PKG; 


package CORREL_HANDLE.QUERY_PKG is 


procedure CORREL_HANDLE_QUERY (CORREL_FILTER : in TRACKS; VALID_TRACKS : in TRACKS; 
RESPOND_VALID_TRACKS : out TRACKS) ; sare 


end CORREL_HANDLE_QUERY_PKG; 


package body CORREL_HANDLE_QUERY_PKG is 


procedure CORREL_HANDLE_QUERY (CORREL_FILTER : in TRACKS; VALID_TRACKS : in TRACKS; 
RESPOND_VALID_TRACKS : out TRACKS) is 


begin 
» 


Put_line(Item => "Inside operator CORREL_HANDLE_QUERY") ; 


end CORREL_HANDLE_QUERY; 


end CORREL_HANDLE_QUERY_PKG; 
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--filename: SAAWIC .correl_update_filter.a 

--Author: Capt Matt Howell 

--Date: 1 July 1997 

--Project: Thesis - A CAPS Prototype of the SAAWC 
--Purpose: This package updates the filter request database 


with text_io;use text_io; 
with DB_RECORD_PKG;use DB_RECORD_PKG; 
with TRACKS_PKG;use TRACKS_PKG; 


package CORREL_UPDATE_FILTER_PKG is 


procedure CORREL_UPDATE_FILTER(REQUEST_TRACKS : in TRACKS; CORREL_FILTER 


Pd 


SUBSCRIBE_DB_CHANGES : out DB_RECORD; 
SUBSCRIBE_TRACKS : out TRACKS) ; 


=e 


end CORREL_UPDATE_FILTER_PKG; 


package body CORREL_UPDATE_FILTER_PKG is 
procedure CORREL..UPRPATE FILTER (REQUEST_TRACKS : in TRACKS; CORREL_FILTER 
\ 


SUBSCRIBE_DB._CHANGES : out DB_RECORD; 
SUBSCRIBE_TRACKS : out TRACKS) is 


begin 
Put_line(Item => “Inside operator CORREL UPDATE FILTER") ; 
end CORREL LUPDATE SF ILTER: 


end CORREL_UPDATE_FILTER_PKG; 


out TRACKS 


our TRACKS 
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SAAWC.correl_update_tracks.a Wed Jul 2 16:07:19 1997 


-- filename: SAAWC.correl_update_tracks.a 


-~-Author: Capt Matt Howell 

--Datie: 1 July 1997 

--Project: Thesis - A CAPS Prototype of the SAAWC 

--Purpose: This package updates the incoming tracks database 


with text_io;use text_io; 
with TPACKS_PKG;use TRACKS_PKG; 


package CORREL_UPDATE_TRACKS_PKG is 


procedure CORPEL_UPDATE_TRACKS(CS_DEL_TRACKS : in TRACKS; CORREL_TPRACK_DB : Out TRACK 


al _ 


5); ‘s 
A 


f 


end CORREL_UPDATE_TRACKS_PKG; 
package body CORPEL_UPDATE_TRACKS_PKG is 


procedure CORREL_UPDATE_TRACKS (CS_DEL_TRACKS : in TRACKS; CORREL_TRACK_DB : out TRACK — 
S} is 
begin 
* 4 
Put_line({Item => "Inside operator CORREL_UPDATE_TPACKS"); 
end CORREL_UPDATE_TRACKS; 


end CORREL_UPDATE_TPACKS_ PKG; 
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a a a i = 


--filename: SAAWC.correlate. 
--Authots Capt Malt Howel ] 
--Date: 1 July 1997 
--Project: Thesis ~ A CAPS Prototype of the SAAWC 


-~-Purpose: This package correlates tracks to database records 


with text_io;use text_io; 
with DB_RECORD_PKG;use DB_RECORD_PKG; 
with TRACKS_PKG;use TRACKS_PKG; 


package CORRELATE_TRACKS_PKG is 


procedure CORRELATE._TRACKS (CORREL_RECORD_DB : in DB_RECORD; CORREL_TRACK_UB : in TRAC 


KS; r? 


VALID_TRACKS : out TRACKS); 


end CORRELATE_TRACKS_PKG; 


package body CORRELATE_TRACKS_PKG is 


s 


procedure CORRELATE_TRACKS {CORREL_RECORD_DB : in DB_RECOPD; CORREL_TRACK_DB : in TRAC ~ 
KS; 


VALID_TRACKS : out FRACKS) is 
begin 
Put_line(Item => “Inside operator CORRELATE_TRACKS") ; 
end CORRELATE_TRACES; 


end CORRELATE_TRACKS_ PKG; 
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SAAWC.data_display _db.a Wed Jul 2 16:08:48 1997 


--filename: SAAWC.data_display_db.a 

~-Author: Capt Matt Howell 

-=-Datere de duly 31997 

--Project: Thesis - A CAPS Prototype of the SAAWC 

-~-Purpose: This package tracks database requests and displays results 


with text_io;use text_io; 
with DB_RECORD_PKG;use DB_RECORD_ PKG; 


package DATA_DISPLAY_DB_PKG is 


procedure DATA_DISPLAY_DB({AD_DEL_DATA : in DB_RECORD; AD_SUB_DATA : out DB_RECORD; 
FILTER_DATA in; DBERECORD); eda aa 


end DATA_DISPLAY_DB_PKG; 


package body DATA_DISPLAY_DB_PKG is 


procedure DATA_DISPLAY_DB(AD_DEL_DATA : in DB_RECORD; AD_SUB_DATA : out DB_RECORD; 


FILTER_DATA in DB_RECORD) is 


begin 


ny 


Put line(f[tem =» "Inside operator DATA_DISPLAY_DB") ; 
end DATA_DISPLAY_DB; 


end DATA_DISPLAY_PB_PKG; 


181 


--filename: SAAWC.db record.a 


-—~— 


-~Author: Capt Matt Howell 
--Date: 12 Jun 97 


--Project: Thesis - A CAPS Prototype of the SAAWC 


--Purpose: 


--This file is where 1 declare the type DB_RECORD 


with text_io;use text_io; 
with timestamp_PKG;use timestamp_PKG; 


package DB_RECORD_PKG is 


package nat_io_pkg is new text_io.integer_io(natural) ; 


type db_record_type is (AIR, SURFACE, SUBSURFACE, 
package db_record_io is new text_io.enumeration_io(db_record_type) ; 


subtype lat_type is natural range 0..999999; 
subtype long_type is natural range 0..9999999; 


type status_type is (FRIEND, HOSTILE, UNK_STATUS) ; 
package status_io is new text_io.enumeration_io(status_type) ; 


type model_type is (FA18, FA14, AV8B, CH46, 
package model_io is new text_io.enumeration_io(model_type) ; 


type DB_RECORD; 
type DB_RECORD_ACCESS is access DB_RECORD; 


type DB_PECORD is record 
db_record_id : Natural := 0; 


this_db_record : db_record_type := UNK_RECORD; 


Fopore source = String({]..10} <= " 
lat : lat_type := 0; 
long : lomg_type := 0; 
UNITE ss String (ls .i5)) > 
status : status_type := UNK_STATUS; 
model : model_type := UNK_MODEL; 
report_date : Natural := 0; 
next : DB_RECORD_ACCESS := NULL; 
request : Boolean := True; 

end record; 


function EMPTY return DB_RECORD; 
end DB_RECORD_PKG; 
package body DB_RECORD_PKG is 
function EMPTY return DB_RECORD is 
dummy : DB_RECORD; 
begin 
return dummy; 
end EMPTY; 


end DB_RECORD_PKG; 





SPACE, GROUND, UNK_RECORD) ;: 


Choa, UNK_MODEL) ; 
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SAAWC.delete file.a Wed Jul 2 16:09:35 1997 1 


--~filename: SAAWC.delete_file.a 


--Author: Capt Matt Howell 


--Dates 13 Wunert397 
--Project: Thesis - A CAPS Prototype of the SAAWC 
--Purpose: This) package deletes DB RECORDS types: Crom dat abase 


with text_io;use text_io; 
with DB_RECORD_PKG;use DB_RECORD_PKG; 


package DELETE_FILE_PKG is 


procedure DELETE_FILE(REQ_DEL_FILE : in DB_RECORD; FILE_DEL_DB : out DB_RECORD) ; 


end DELETE_FILE_PKG; eh 


package body DELETE_FILE_PKG is 


procedure DELETE_FILE (REQO_DEL_FILE : in DB_RECORD; FILE_DEL_DB : out DB_RECORD) is 


begin 


Put_Line(Item => "Inside operator DELETE FILE"); 
+ 


end DELETE_FILE; 


end DELETE_FILE_PKG; 
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--filename: SAAWC.delete_object.a 


--Author: Capt Matt Howell 


--Date: 13 June 1997 
--Project: Thesis - A CAPS Prototype of the SAAWC 
--Purpose: This package deletes DB_RECORDS types from database 


with text_io;use text_io; 
with DB_RECORD_PKG;use DB_RECORD_PKG; 


package DELETE_OBJECT_PKG is 


procedure DELETE_OBJECT(REQ_DEL_OBJ : in DB_RECORD; OBJ_DEL_DB : out DB_RECORD) ; 


om 


+ 


f 


end DELETE_OBJECT_PKG; 
package body DELETE_OBJECT_PKG is 


procedure DELETE_OBJECT (REQ_DEL_OBJ : in DB_RECORD; OBJ_DEL_DB : out DB_RECORD) is. 
begin 

Put_line({Item => “Inside operator DELETE etl aisig Ne 
end DELETE_OBJECT; 


end DELETE_OBJECT_PKG; 
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SAAWC.delete record.a Wed Jul 2 16:11:03 1997 


--filename: SAAWC.delete_record.a 

--Author: Capt Matt Howell 

--Date: 13 June 1997 

--Project: Thesis - A CAPS Prototype of the SAAWC 

--Purpose: This package deletes DB_RECORDS types from database 


with text_io;use text_io; 
with DB_RECORD_PKG;use DB_RECORD_PKG; 


package DELETE_RECORD_PKG is 


oe 


procedure DELETE_RECORD(REQ_DEL_REC : in DB_RECORD; REC_DEL_DB out DB_RECORD) ; 


~~“ 


“7 


end DELETE_RECORD_PKG; 
package body DELETE_RECORD_PKG is 
Procedure DELETE_RECORD (REQ_DEL_REC : in DB_RECORD; REC_DEL_DB : out DB RECORD) 
begin 
Put_line(Item => “Inside operator DELETE See 
end DELETE_RECORD; 


end DELETE_RECORD_PKG; 
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--filename: SAAWC.device.a 


--Author: Capt Matt Howell 

--Date: 12 Jun 97 

--Project: Thesis - A CAPS Prototype of the SAAWC 
~-Purpose: 


--This file is where I declare the type DEVICE 


with text_io; 

use text_io; 

with file_name_PKG; 

use file_name_PKG; 

package DEVICE_PKG is 

type DEVICE is record 
device_name : file_name; 

end record; 

function EMPTY return DEVICE; 

end DEVICE_PKG; 


package body DEVICE_PKG is 


function EMPTY return DEVICE is 


\O 
dummy : DEVICE; (oa) 
=o 
begin 
dummy .device_name := (OTHERS =» ' '); 


return dummy; 
end EMPTY; 


end DEVICE_PKG; 


SAAWC. file name.a Sat Jun 14 09:11:50 1997 


--File: SAAWC.file_name.a 


-Author: Capt Matt Howe] ] 

-Date: 14 June 1997 
--Project: Thesis - A CAPS Prototype of the SAAWC 
--Purpose: To declare filename type 


with text_io; 
use text_io; 


package file_name_PKG is 
subtype file_name is String({1..256); 


end file_name_PKG; 
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--filename: SAAWC.format_response.a 


--Author: Capt Matt Howell 
--Date: 1 July 1997 


--Project: Thesis - A CAPS Prototype of the SAAWC 
--Purpose: This package prepares a response to a particular database request 


with text_io;use text_io; 


with DB_RECORD_PKG;use DB_RECORD_PKG; 
with MESSAGE_PKG;use MESSAGE_PKG; 


package FORMAT_RESPONSE_PKG is 


procedure FORMAT_RESPONSE(FILE_ADD_DB 
FILE_MOD_DB 
OBJ_ADD_DB 
OBJ_MOD_DB 
REC_ADD_DB 
REC_MOD_DB 
RESPOND_MSG 


end FORMAT _PESPONSE_PKG; 


package body FORMAT_RESPONSE_PKG is 


procedure FORMAT_RESPONSE(FILE_ADD_DB 
FILE_MOD_DB 
OBJ_ADD_DB 
OBJ_MOD_DB 
REC_ADD_DB 
REC_MOD_DB 
RESPOND_MSG 


begin 


: In PBLRECORD; 
: in DBERECORD; 
in DB_RECORD; 
in DB RECORD; 
intr DEB ZRECORD; 
in DB_RECORD; 
: Out MESSAGE) 


* 


: in DB_RECORD; 
in DB_RECORD; 
in DBZRECORD- 
in DB_RECORD; 
in DB RECORD: 
in DB. PECORD; 
: Out MESSAGE) 


FILE_DEL_DB : in DB_RECORD; 

FICESRETR MSG = in DB ZRECORD; 
CBI SDELZRB = in DB_RECORD; 
OBJ_RETR_MSG : in DB_RECORD; 
REC PEL DB : in DB_RECORD; 
REC_RETR_MSG : in DB_RECORD; 


FILE_DEL_DB : in DB_RECORD; 
FILE_RETP_MSG : in DB_RECORD; 
OBI _PELLDB : in DBORECORD; 
OBJ CRETR_MSG : in DB RECORD; 
REC_DEL_DB : in DB_RECORD; 
REC RETR-MSG = in DBJRECORD; 
1S 


Put_line(Item => "Inside operator FOPMAT_RESPONSE") ; 


end FORMAT_RESPONSE; 


end FORMAT_RESPONSE_PKG; 
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SAAWC.ftp_processor in.a Wed Jul 2 16:12:33 1997 


-filename: SAAWC.ftp_processor_in.a 
--Author: Capt Matt Howell 
Date: 13 June 1997 


--Project: Thesis - A CAPS Prototype of the SAAWC 
--Purpose: This package processes incoming FTP messages 


with text_io;use text_io; 
with MESSAGE_PKG;use MESSAGE_PKG; 
package FTP_PROCESSOR_IN_PKG is 


procedure FTP_PROCESSOR_IN(FTP_IN : in MESSAGE; FTP_MSG_IN : out MESSAGE); 


end FTP_PROCESSOR_IN_PKG; 
package body FTP_PROCESSOR_IN_PKG is 


procedure FTP_PROCESSOR_IN {FTP_IN : in MESSAGE; FTP_MSG_IN : out MESSAGE) is 
begin 

Put_line(Item => “Inside operator FTP_PROCESSOR_IN "); 
end FTP_PRCCESSOR_IN; 


end FTP_PROCESSOR_IN_PKG; 
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--filename: SAAWC.ftp_processor_out .a 


--Author: Capt Matt Howell 


~-Date: 17 June 1997 
--Project: Thesis - A CAPS Prototype of the SAAWC 
--Purpose: This package processes outgoing FTP messages 


with text_io;use text_io; 
with MESSAGE_PKG;use MESSAGE_PKG; 


Package FTP_PROCESSOP_OUT_PKG is 


procedure FTP_PROCESSOR_OUT\FTP_MSG_OUT : in MESSAGE; FTP_OUT 


end FTP_PROCESSOR_OUT_PKG; 


Package body FTP_PROCESSOR_OUT_PKG is 


procedure FTP_PROCESSOR_OUT (FTP_MSG_OUT : in MESSAGE; FTP_OUT 


begin 
Put_line(Item => "Inside operator FTP_PROCESSOR_OUT") ; 
end FTP_PROCESSOR_OUT; 


end FTP_PROCESSOR_OUT_PKG; 





out MESSAGE) ; 


Out MESSAGE) 
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SAAWC.get_user_cmd.a Thu Jul 3 14:15:25 1997 1 


-- filename: SAAWC.get_user_cmd.a 

--Author: Capt Matt Howell] 

- Date: 1) Julvaloey 

--Project: Thesis - A CAPS Prototype of the SAAWC 

~-Purpose: This package receives and processes commands from the user 


with text_io;use text_io; 

with ALERT_PKG;use ALERT_PKG; 

with DB_RECORD_PKG;use DB_RECORD_ PKG; 
with MAP_PKG;use MAP_PKG; 

with MESSAGE_PKG;use MESSAGE_PKG; 

with TRACKS _PKG;use TRACKS_PKG; 

with ADMINISTER_PKG;use ADMINISTER_PKG; 


package GET_USER_CMD_PKG is 
procedure GET_USER_CHD(DATA_OUT : out MESSAGE; FILTER_ALERTS : out ALERT; 
FILTER_DATA : Out DB_RECORD; FILTER_MAPS : out MAP ; 
FILTER_MSGS : out MESSAGE; FILTER_.TRACKS : out TRACKS; 


MOD_OBJ_LOC : out ADMINISTER; MOD_RULES : out ADMINISTER; 
PRINT_FILE : out MESSAGE; REQ SECURE_SESSION : out MESSAGE) ; 


end GET _USER_CiHiD_PKG; 
package body GET_USER_CMD_PKG is 
procedure GET_USER_CMD(DATA_OUT : out MESSAGE; FILTER_ALERTS : ont ALERT; 
FILTER_DATA : out DB_RECORD; FILTER_MAPS : out MAP; 
FILTER_WSGS : out MESSAGE; FILTER_TRACKS : out TRACKS; 


MOD_OBJ_LOC® : out ADMINISTER; MOD_RULES : out ADMINISTER; 
PRINT_FILE : out MESSAGE; REQ SECURE_SESSION : out MESSAGE) is 


begin 
Put_lineiItem => “Inside operator GETIUSEPL CMD" }> 
end GET_USER_cMD; 


end GET_USER_CHD_PKG; 
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--filename: SAAWC.handle_query.a 

--Author: Capt Matt Howell] 

-"pawe. 1 July 1937 

--Project: Thesis - A CAPS Prototype of the SAAWC 

--Purpose: This package receives filter requests and responds with track if it exists 


with text_io;use text_io; 
with TRACKS PKG;use TRACKS_PKG; 


package HANDLE_OQUERY_PKG is 


procedure HANDLE_QUERY (FILTER : in TRACKS; TRACK_DB : in TRACKS; 
RESPOND_TRACKS : Out TRACKS) ; 


end HANDLE_QUERY_PKG; 


package body HANDLE_QUERY_PKG is 


procedure HANDLE_QUERY(FILTER : in TRACKS; TRACK_DB : in TRACKS; 
RESPOND_TPRACKS : out TRACKS) is 


begin 
Put_line{Item => "Inside operator HANDLE_QUERY") ; 


end HANDLE_QUERY; 


end HANDLE_QUERY_PKG; 


ial 





182 


SAAWC .http processor in.a Wed Jul 


-~-filename: SAAWC.http_processor_in.a 


~-Author: Capt Matt Howell 

--Date: 17 June 1997 

--Project: Thesis - A CAPS Prototype of the SAAWC 
-~-Purpose: This package processes incoming HTTP messages 


with text_io;use text_io; 
with MESSAGE _PKG;use MESSAGE_ PKG; 


package HTTP_PROCESSDOR_IN_PKG is 


2 16:15:45 1997 


procedure HTTP_PROCESSOP_IN({HTTP_IN : in MESSAGE; HTTP_MSG_IN : out MESSAGE): 


end HTTP_PROCESSOR_IN_PKG; 


package body HTTP_PROCESSOR_IN_PKG is 


procedure HTTP_PPROCESSOR_IN ({HTTP_IN : in MESSAGE; HTTP_MSG_IN : out MESSAGE) is 


begin 


Put_line(Item => “Inside operator HTTP_PROCESSOP_IN") ; 


end HTTP_PROCESSOR_IN; 


end HTTP_PROCESSOP_It}_PKG; 
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--filename: SAAWC.http _processor_out.a 

--Author: Capt Matt Howell 

~-Date: 17 June 1997 

--Project: Thesis - A CAPS Prototype of the SAAWC 
-~-Purpose: This package processes outgoing HTTP messages 


with text_io;use text_io; 
with MESSAGE_PKG;use MESSAGE_PKG; 


package HTTP_PROCESSOR_OUT_PKG is 

procedure HTTP_PROCESSOR_OUT(HTTP_MSG_OUT : in MESSAGE; HTTP_OUT 
end HTP PROCESSOR OUT PKG; 
package body HTTP_PROCESSOR_OUT_PKG is 

procedure HTTP_PROCESSOR_OUT (HTTP_MSG_OUT : in MESSAGE; HTTP_OUT 

begin 

Put_line(Item => "Inside operator HTTP_PROCESSOR_OUT") ; 
enG@ HTTP PROCESSOR OUT; 


end HTTP_PROCESSOR_OUT_PKG; 


? 
* 


out MESSAGE) ; 


out MESSAGE) 
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SAAWC.key.a Tue Jul 


--filename: SAAWC.key.a 
Author: Capt Matt Howell 
-—Datece) 2 wun. a7 


8 21:19:49 1997 


--Project: Thesis - A CAPS Prototype of the SAAWC 


--Purpose: 


--This file is where I declare the type KEY 


with text_io; 
use text_io; 
with file name_PKG; 
use file _name_PKG; 
package KEY_PKG is 
type KEY is record 


key_name : file_name; 
request : Boolean := True; 


end record; 
function EMPTY return KEY; 
end KEY_PKG; 
package body KEY_PKG is 
function EMPTY return KEY is 
dummy ; KEY; 
begin 
dummy .key_name := (OTHERS => 
return dummy; 
end EMPTY; 


end KEY_PEG; 


Pid 
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--filename: SAAWC.locate_map.a 


--Author: Capt Matt Howell 
--Date: 1 July 1997 


--Project: Thesis - A CAPS Prototype of the SAAWC 


--Purpose: This package receives a map request and delivers the response 


with text_io;use text_io; 
with MAP_PKG;use MAP_PKG; 


package LOCATE_MAP_PKG is 
procedure LOCATE_MAP (REQUEST_MAP 
end LOCATE_MAP_PKG; 
package body LOCATE_MAP_PKG is 
procedure LOCATE_MAP(REQUEST_MAP 


begin 


. 


in MAP; 


in MAP; 


DELIVER_MAP 


DELIVER_MAP 


Put_line(Item => "Inside operator LOCATE_MAP"); 


end LOCATE_MAP; 


end LOCATE_MAP_PKG; 


out MAP); 


out MAP) 


is 
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SAAWC.map.a Tue Jul 8 21:21:03 
~-filename: SAAWC.map.a 
--Author: Capt Matt Howell] 
-Date: 12 Jun 97 
-~Project: Thesis - A CAPS Prototype of tne SAAC 


--~Purpose: 


‘This file is where I declare the type MAP 


with text_io; 
use text_io; 
with f£1l1e_name_PKG; 
use file name_PKG; 
package MAP_PKG is 
type MAP is record 


map _name : file name; 
request : Boolean := True; 


end record; 

function EMPTY return MAP; 
end MAP_PKG; 

package body MNAP_PKG is 


function EMPTY return MAP is 


dummy : MAP; 
begin 
dummy .mMap_name := (OTHERS => ’ ’); 


return dummy; 
end EMPTY; 


end MAP_PKG; 


P97 
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--filename: SAAWC.map_display_db.a 


~-Author: Capt Matt Howell 


-~-Daties 1) July. 1997 
--Project: Thesis - A CAPS Prototype of the SAAWC 
-Purpose: This package tracks map requests and displays results 


with text_io;use text_io; 
with MAP_PKG;use MAP_PKG; 
package MAP_DISPLAY_DB_PKG is 


procedure MAP_DISPLAY_DB(AD_DEL_MAP : in MAP; AD_SUB_MAP : out MAP; 
FILTER_MAPS : in MAP); 


end MAP_DISPLAY_DB_PKG; 


package body MAP_DISPLAY_DB_PKG is 


Procedure MAP_DISPLAY_DB(AD_DEL_MAP : in MAP; AD_SUB_MAP : out MAP; 
FILTER_MAPS : in MAP) is 


begin 
Put_line(Item => "Inside operator MAP_DISPLAY_DB") ; 
end MAP_DISPLAY_DB; 


end WAP _ DISPLAY, DB_PKG; 


“N 
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SAAWC.message.a Tue Jul 8 21:21:52 1997 1 


-° tracks_mssg : TRACKS; 


--filename: SAAWC.message.a 
-- when UNK_MSG => 


--Author: Capt Matt Howell -- NULL; 
--Datiess 12 June 97 -- when OTHERS => 
--Project: Thesis - A CAPS Prototype of the SAAWC NULL; 

: end case; 


--Purpose: 


administer_msg : ADMINISTER; 
alert_msg : ALERT_ACCESS := NULL; 
certificate_msg : CERTIFICATE; 
db_record_msg : DB_RECORD; 
device_msg : DEVICE; 

key.msg : KEY; 


--This file is where I declare the tvpe MESSAGE 


with text_io;use text_io; 

with file_name_PKG;use file _name_PKG; 
with TIMESTAMP_PKG;use TIMESTAMP_PKG; map_msg : MAP; 

with ADMINISTER_PKG;use ADMINISTER_PKG; param_msg PARAM; 

with ALERT_PKG;use ALERT_PKG; path_msg : PATH; 

with CERTIFICATE_PKG;use CERTIFICATE_PKG; Signature_msg : SIGNATURE; 
with DB_RECORD_PKG;use DB_RECORD_ PKG; tracks_msg TRACKS; 

with DEVICE_PKG;use DEVICE_PKG; 

with KEY_PKG;use KEY_PKG; 

with MAP_PKG;use MAP_PKG; 

with PARAM_PKG;use PARAM_PKG; 

with PATH _PKG;use PATH_PKG; 

with SIGNATURE_PKG;use SIGNATURE_PKG; 
with TRACKS_PKG;use TRACKS_PKG; 


end record; 
function EMPTY return MESSAGE; 
end MESSAGE_PKG; 


package body MESSAGE_PKG is 


package MESSAGE_PKG is 
function EMPTY return MESSAGE is 


~-type message_type is{ADMINISTER_MSG, ALERT_MSG, CERTIFICATE_MSG, DB _RECORD_MSG, 
Si DEVICE_MSG, KEY_MSG, 4AP_MSG, PARAM_MSG, PATH_MSG, SIGNATURE_MSG, dummy : MESSAGE; 


= TPRACKS_MSG,UNK_MSG) ; 


--type MESSAGE( Kind 
type MESSAGE; 
type MESSAGE_ACCESS 


: message_type) ; 


is access MESSAGE: 


begin 


return dummy ; 
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type NESSAGE (Kind : message Cypet iss record ord baeT y ; 


type MESSAGE is record end MESSAGE_PKG; 


message_id : Natural := 0; 

message_pri : Natural range i..5; 
MeESSageGsSr es Str ana { 1)... 10 jes" bee 
message_dest : String({1l..10) := " : 
request : Boolean := True; : 


-- case Kind is 
-- when ADMINISTER_MSG => 

-- administer_mssg : ADMINISTER; 

-- when ALERT_MSG => 

-- alert_mssg : ALERT(Kind => UNK_ALERT) ; 
-- when CERTIFICATE_MSG => 

-- certificate_mssg : CERTIFICATE; - 
-- when DB_PECORD_MSG => 

-- db_record_mssg : DB_RECORD; 

-- when DEVICE_MSG => 

-- device_mssg : DEVICE; 

-- when KEY_MSG => 

=< key_mssg : KEY; 

-- when MAP_MSG => 

0s Map omssgq : MAP; 

-- when PARAM_MSG => 

-< param _mssg : PAPAM; 

-- when PATH_MSG => 

-- path_mssg : PATH; 

-- when SIGNATURE_MSG => 

on elanatire meen . CIOuATMIDc. 





--filename: SAAW7.mod_f£ e.a 


--Author: Capt Matt Howell 


--Date: 13 June 1997 
--Project: Thesis - A CAPS Prototype of the SAAWC 
--Purpose: This package modifies DB_RECORDS types in database 


with text_io;use text_io; 
with DB_RECORD_PKG;use DB_RECORD_PKG; 


package MOD_FILE_PKG is 
out DB_RECORD) ; 


procedure MOD_FILE(REQ_MOD_FILE : in DB_RECORD; FILE_MOD_DB : 


end MOD_FILE_PKG; 
package body MOD_FILE_PKG is 


procedure MOD_FILE (REQ_MOD_FILE : in DB_RECORD; FILE_MOD_DB : out DB__RECORD) 


begin 
Put_line(Item => "Inside operator MOD FILE"); 
end MOD_FILE; 


end MOD_FILE_PKG; 


is 
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SAAWC.mod_object.a Wed Jul 2 16:18:48 1997 


--filename: SAAVWC.mod_object.a 


--Author: Capt Matt Howell 

-=-Date; 13 June.1997 

--Project: Thesis - A CAPS Prototype of the SAAWC 

--Purpose: This package modifies DB_RECORDS types in database 


with text_io;use text_io; 
with DB_RECORD_PKG;use DB_RECORD_ PKG; 
package MOD_OBJECT_PKG is 
procedure MOD_OBJECT(REQ_MOD_OBJ : in DB_RECORD; OBJ_MOD_DB : out DB_RECORD); 
end MOD_OBJECT_PKG; 
package body MOD_OBJECT_PKG is 
procedure MOD_OBJECT (REQ_MOD_OBJ : in DB_RECORD; OBJ_MOD_DB : out DB RECORD) is 
begin 
Put_line(Item => "Inside operator MOD OBJECT"); 
end MOD_OBJECT; 


end MOD_OBJECT_PKG; 
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--filename: SAAWC.mod_record.a 


--Author: Capt Matt Howell 


--Date: 13 June 1997 
--Project: Thesis - A CAPS Prototype of the SAAWC 
--Purpose: This package modifies DB_RECORDS types in database 


with text_io;use text_io; 
with DB_RECORD_PKG;use DB_RECORD_PKG; 


package MOD_RECORD_PKG is 
REC_MOD_DB : out DB_RECORD) ; 


procedure MOD_RECORD({REQ_MOD_REC : in DB_RECORD; 


end MOD_RECORD_PKG; 
package body MOD_RECORD_PKG is 


procedure MOD_RECORD{REQ_MOD_REC : in DB_RECORD; REC_MOD_DB : out DB_RECORD) is 


begin 
Put_line{Item => "Inside operator MOD_RECORD"); 
end MOD_RECORD; 


end MOD_RECORD._PKG; 
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SAAWC.mount_device.a Tue Jul 22 16:16:41 1997 


--~filename: SAAWC.mount_device.a 


--Author: Capt Matt Howell 

--Pate: 1 July 1997 

--Project: Thesis - A CAPS Prototype of the SAAWC 

--Purpose: This package tracks the mounting and unmounting of devices 


with text_io;use text_io; 
with DEVICE_PKG;use DEVICE_PKG; 
package MOUNT_DEVICE_PKG is 
procedure MOUNT_DEVICE(ADMINISTER_DEVICE : in DEVICE; DEVICE_STATUS : out BOOLEAN) ; 
end MOUNT_DEVICE_PKG; 
package body MOUNT_DEVICE_PKG is 
procedure MOUNT_DEVICE (ADMINISTER_DEVICE : in DEVICE; DEVICE_STATUS : out BOOLEAN) 
begin 
Put_line(Item => "Inside operator MOUNT_DEVICE"); 
end MOUNT_DEVICE; 


end MOUNT_DEVICE_PKG; 


is 
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--Author: Capt Matt Howell 

=“Dace.. ) Julyeieo7 

~-Project: Thesis - A CAPS Prototype of 
--Purpose: This package tracks message requests and displays results 


with text_io;use text_io; 
with MESSAGE_PKG;use MESSAGE_PKG; 


package MSG_DISPLAY_DB_PKG is 


procedure MSG_DISPLAY_DB(AD_DEL_MSGS 
FILTER_MSGS 


end MSG_DISPLAY_DB_PKG; 
package body MSG_DISPLAY_DB_PKG is 


procedure MSG_DISPLAY_DB(AD_DEL_MSGS 
FILTER_MSGS 


begin 
Put_linetItem => "Inside operator 
end MSG_DISPLAY_DB; 


end MSG_DISPLAY_DB_ PKG; 


the SAAWC 


in MESSAGE; AD._SUB_MSGS 
in MESSAGE) ; 


: in MESSAGE; AD_SUB_MSGS 
: in MESSAGE) is 


» 


HSG DISPLAY DB"); 


out MESSAGE; 


4 


f 


out MESSAGE; 


coed 
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SAAWC.msg_handle query.a Wed Jul 2 16:21:11 1997 


--filename: SAAWC.msg_handle_query.a 


-~-Author: Capt Matt Howell 


--Date: 1 July 1997 
--Project: Thesis - A CAPS Prototype of the SAAWC 
--Purpose: This package determines if a requested message is in the database 


with text_io;use text_io; 
with MESSAGE_PKG; use MESSAGE_PKG; 


package MSG_HANDLE_QUERY_PKG is 


procedure MSG_HANDLE_QUERY({MSG_FILTER : in MESSAGE; MSG_MESSAGE_DB : in MESSAGE; 
RESPOND_MSGS : out MESSAGE) ; a ee 


end MSG_HANDLE_QUERY_PKG; 


package body MSG_HANDLE_QUERY_PKG is 


procedure MSG_HANDLE_QUERY (MSG_FILTER : in MESSAGE; MSG_MESSAGE_DB : in MESSAGE; 
RESPOND_MSGS : out MESSAGE) is 


begin 
.s 


Put_line(Item => "Inside operator MSG_HANDLE_QUERY"):; 


end MSG_HANDLE_QUERY ; 


end MSG_HANDLE_QUERY_PKG; 
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1lename: .msg_out _ manager.a 


-~Author: Capt Matt Howell 


~-Date: 1 July 1997 
--Project: Thesis - A CAPS Prototype of the SAAWC 


--Purpose: This package puts user input into an appropriate message format 


with text_io;use text_io; 
with MESSAGE_PKG;use MESSAGE_PKG; 


package MSG_OUT_MANAGER_PKG is 


procedure MSG_OUT_MANAGER(DATA_OUT : in MESSAGE; MSG_OUT 


end MSG_OUT_MANAGER_PKG; 


package body MSG_OUT_MANAGER_PKG is 


procedure MSG_OUT_MANAGER (DATA_OUT : in MESSAGE; MSG_OUT 


begin 


Put_line(Item => "Inside operator MSG_OUT_MANAGER"); 


* 


end MSG_OUT_MANAGER; 


end MSG_OUT_MANAGER_PKG; 


* 
. 


out MESSAGE) ; 


pe 


out MESSAGE) 


— 


is 
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SAAWC.msg_update filter.a Wed Jul 2 16:22:29 1997 al 


~-filename: SAAWC.msg_update_filter.a 


-—— 


--Author: Capt Matt Howe]] 

~-Dakes 1 July 91997 

~-Project: Thesis - A CAPS Prototype of the SAAWC 
--Purpose: This package tracks message filter requests 


with text_io;use text_io; 
with MESSAGE _PKG;use MESSAGE PKG; 
package MSG_UPDATE_FILTER_PKG is 
procedure MSG_UPDATE_FILTER(REQUEST_MSGS : in MESSAGE; 
end MSG_UPDATE_FILTER_PKG; 
package body MSG_UPDATE_FILTER_PKG is 


procedure MSG_UPDATE_FILTER(REQUEST_MSGS : in MESSAGE; 


begin 


MSG_FILTER : out MESSAGE) ; 


MSG_FILTER 


Put_line(Item => "Inside operator MSG_UPDATE_FILTER") ; 


* 


end MSG _UPDATE_FILTER; 


end MSG_UPDATE_FILTER_PKG; 


“a 
edad 


4 
Es 


out MESSAGE) is 
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--filename: SAAVWC.network.a 


--Author: Capt Matt Howell 


--Date: 1 July 1997 
--Project: Thesis - A CAPS Prototype of the SAAWC 
--Purpose: This packaqe produces incoming messaqes 


with text_io;use text_io; 
with BITS_PKG;use BITS_PKG; 


package NETWORK_PKG is 


procedure NETWORK( BITS GUT : in BITS; BITS_IN : 
end NETWORK_PKG; 


package body NETWORK_PKG is 


procedure NETWORK(BITS_OUT : in BITS; BITS_IN : 
begin 


Put_line(Item => "Inside operator NETWORK"); 
» 


end NETWORK; 


end NETWORK_PKG; 


and proce 


out Bills} 


out BITS) 


CS OUb GOETHE, meas 
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SAAWC .network_interface_in.a Wed Jul 2 16:24:08 1997 


--filename: SAAWC.network_interface_in.a 


--Author: Capt Matt Howell 


--Date: 1 July 1997 
--Project: Thesis - A CAPS Prototype of the SAAWC 
~-Purpose: This package processes messages coming off the network 


with text_io;use text_io; 
with BITS_PKG;use BITS_PKG; 
with MESSAGE_PKG;use MESSAGE_ PKG; 
package NETWGRK_INTERFACE_IN_PKG is 
procedure NETWORK_INTERFACE_IN(BITS_IN : in BITS; DATA_STR_IN : out MESSAGE) ; 
end NETWORK_INTERFACE_IN_PKG; | 
package body NETWORK_INTERFACE_IN_PKG is 
procedure NETWORK_INTERFACE_IN(BITS_IN : in BITS; DATA_STR_IN : out MESSAGE) is 
begin 
Put Jine (item + “Inside operator NETWORK _EPNTERPACE UN"); 


end NETWORF TiUITEPPFA-ECIN; 


end NETWORK_INTERFACE_IN_PKG; 
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---filename: SAAWC.network_interface_out.a 
--Author: Capt Matt Howell 


==Dace: 1 Jilly 1997 
--Project: Thesis - A CAPS Prototype of the SAAWC 
--Purpose: This package processes messages to be sent to the network 


with text_io;use text_io; 
with MESSAGE_PKG; use MESSAGE_PKG; 
with BITS_PKG;use BITS_PKG; 


package NETWOPK_INTERFACE_OUT_PKG is 
procedure NETWORK_INTERFACE_OUT(FTP_OUT : in MESSAGE; HTTP_OUT : in MESSAGE; 


SMTP_OUT : in MESSAGE; SNMP_OUT : iri MESSAGE; 
UDP_OUT : in MESSAGE; BITS_OUT : out BITS); 


end NETWORK_INTERFACE_OUT_PKG; 
package body NETWORK_INTERFACE_OUT_PKG is 
procedure NETWORK_INTERFACE_OUT(FTP_OUT : in MESSAGE; HTTP_OUT : in MESSAGE; 


SMTP_OUT : in MESSAGE; SNMP_OUT : in MESSAGE; 
UBPSOUT = ir MESSAGE; BITS_OUT : owt BITS) is 


begin 


Put_line(Item => "Inside operator NETWORK_INTERFACE_OUT") ; 


end NETWOPRK_INTEPRFACE_OUT; 


end NETWORK_INTERFACE_OUT_PKG; 
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SAAWC.param.a Tue Jul 8 21:22:58 1997 


-~-filename: SAAWC.param.a 


-~-Author: Capt Matt Howell 

=— Dat eoceukee sa io 

--Project: Thesis ~ A CAPS Prototype of the SAAWC 
--Purpose: 


-This Cile is where 1 declare the type PARAM 


with text_io; 

use text_io; 

with file _name_.PKG; 
use file_name_PKG; 
package PARAM_PKG is 
tvpe PARAM is record 


param_name : file_name; 
request : Boolean := True; 


end record; 
function EMPTY return PARAM; 
end PARAM_PKG; 
package body PARAM PKG is 
function EMPTY return PARAM is 
dummy : PARAM; 
begin 
dummy .param_name := (OTHERS => ’ ‘); 
return dummy; 
end EMPTY; 


end PARAM PKG; 


“\ 


Za 





--Author: Capt Matt Howell 
-=sBate: 12 June 97 
--Project: Thesis - A CAPS Prototype of the SAAWC 
--Purpose: 


--This file is where I declare the type PATH 


with text_io; 
use text_io; 
with file_name_PKG; 
use file name_PKG; 


package PATH_PKG is 


type PATH is record 


path_name : file_name; 
True; 


Bequest =) Boolean, == 


end record; 


function EMPTY return PATH; 


end PATH_PKG; 


package body PATH_PKG is 


function EMPTY return PATH is 


dummy : PATH; 
begin 
dummy .path_name : 
return dumm.; 
end EMPTY; 


end PATH_PKG; 


(OTHERS 
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SAAWC.print_manager.a Wed Jul 2 16:25:38 1997 


--filename: SAAWC.print_manager.a 


--Author: Capt Matt Howell 


-=Daber 1 Juiy 1997 
~-Project: Thesis - A CAPS Prototype of the SAAWC 
-~Purpose: This package handles print requests from the user 


with text_io;use text_io; 
with MESSAGE_PKG:use MESSAGE_ PKG; 


package PRINT_MANAGER_PKG is 


procedure PRINT_MANAGER({PRINT_FILE : in MESSAGE; PRINT _ RESPONSE 
PRINT_REQ : out MESSAGE); 


end PRINT_MANAGER_PKG; 
package body PRINT_MANAGER_PKG is 


procedure PRINT_MANAGER(PRINT_FILE : in MESSAGE; PRINT_RESPONSE 
PRINT_REQ : out MESSAGE) is 


begin 
» 


Put_line(Item => "Inside operator PRINT_MANAGER") ; 


end PRINT. MANAGER; 


end PRINT_MANAGER_PKG; 


in MESSAGE; 


f id 


in MESSAGE; 
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--Author: Capt Matt Howell 

==Date: 1 July 1997 

~-Project: Thesis - A CAPS Prototype of the SAAWC 

--Purpose: This package tracks alert filters against the message database 


with text_io;use text_io; 

with ALERT_PKG; use ALERT_ PKG; 

with DB_RECORD_PKG;use DB_RECORD_ PKG; 
with TRACKS_PKG;use TRACKS_PKG; 


package RESOLVE_ALERTS_PKG is 


oo 


procedure RESOLVE_ALERTS (ALERTS_FILTER : in TRACKS; ALERTS_MESSAGE_DB : 
RESPOND_ALEPTS : out ALERT); 


end RESOLVE_ALERTS_PKG; 
package body RESOLVE_ALERTS_PKG is 
Procedure RESOLVE_ALERTS (ALERTS_FILTER : in TRACKS; ALERTS_MESSAGE_DB : 
RESPOND_ALERTS : out ALERT) is 


+ 


begin 
Put_line(Item => "Inside operator RESOLVE_ALERTS") ; 
end RESOLVE_ALERTS; 


end RESOLVE_ALERTS_ PKG; 


a = 


in DB_RECORD; 


in DB_RECORD; °* 
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SAAWC.resolve_data_type.a Wed Jul 2 16:27:05 1997 


-~filename: SAAWC.resolve_data_type.a 


--Author: Capt Matt Howell 

-=Dates 1 July 1997 

--Project: Thesis - A CAPS Prototype of the SAAWC 

--Purpose: This package determines which datatype the user has requested 


with text_io;use text_io; 
with DB_RECORD_PKG;use DB_RECORD_PKG; 
package RESOLVE_DATA_TYPE_PKG is 
procedure RESOLVE_DATA_TYPE(REQ_DATA : in DB_RECORD; REQ_DATA_ TYPE : out SIE BS EN 
end RESOLVE_DATA_TYPE_PKG; a _ 


package body RESOLVE_DATA_TYPE. PKG is 


procedure RESOLVE_DATA_TYPE(REQ_DATA : in DB_RECORD; REQ_DATA_TYPE : out DB_RECORD) 


begin 
Put_line(Item => “Inside operator RESOLVE_DATA_TYPE") ; 
end PESOLVE_DATA_TYPE; 


end RESOLVE_DATA__TrPE_PKG; 


: 


pe) 


~-filename: SAAWC.resolve_request_type.a 

~-Author: Capt Matt Howell 

~-Date: 1 July 1997 

--Project: Thesis - A CAPS Prototype of the SAAWC 

--Purpose: This package determines what action the user wants to take on a database 


with texct_io;use text_io; 
with DB_RECORD_PKG;use DB_RECORD_PKG; 


package RESOLVE_REQUEST_TYPE_PKG is 


procedure ‘RESOLVE_REQUEST_TYPE(REQ_DATA_TYPE : in DB_.RECORD; REQ_ADD_FILE : out DB_RE 


~ 


oe REOUADD_OBJ : oul DBSRECERD; REQ_ADD/REC : out DB_RECO 
RD; REOSZDELL PILE <= out DB RECORD] REO -DELZOBJ : out DB REC 
a REQ_DEL_REC : out DB_RECORD; REQ _MOD_FILE : out DB_REC 
oe REQ_MOD_OBJ : out DB_RECORD; REQ_MOD_REC : out DB_RECO: 
sl BEQeReTR Fi LE ou. DB RECORD; (REQBREIR OBJ : out DB_P 
ECORD; 7“ 


REO_RETRIREC : out DB_RECORD) ; 


end RESOLVE, REQUEST_TYPE_PKG; 


package body RESOLVE_REQUEST_TYPE_PKG is 


procedure RESOLVE_REQUEST_TYPE(REQ_DATA_TYPE : in DB_RECORD; REQ_ADD_FILE : out DB_RE 
CORD; \O 
REO_ADD_OBJ : out DB RECORD; REQ_ADD_REC : out DB_RECO a 
RD; 
REQ_DEL_FILE : out DB_RECORD; REQ_DEL_OBJ : out DB_REC 
ORD; 
REQ_DEL_REC : out DB_RECORD; REQ _MOD_FILE : out DB_REC 
OPD; 
REQ_MOD_OBJ : out DB_RECORD; REQ_MOD_REC : out DB_RECO 
RD; 
REQ_RETR_FILE : out DB_RECORD; REQ _RETR_OBJ : out DB_R 
ECORD; 
REQ _RETR_REC : out DB_RECORD) is 
begin 


Put_line(Item => “Inside operator RESOLVE_REQUEST_TYPE") ; 
end RESOLVE_REQUEST_TYPE; 


end RESOLVE_REQUEST_TYPE_PKG; 


SAAWC.resolve_resource _loc.a Wed Jul 2 16:28:52 1997 


--filename: SAAWC.resolve_resource_loc.a 


—~ 0 


--Aulhor: Capt Malt Howell] 

--Date: 1 July 1997 

--Project: Thesis - A CAPS Prototype of the SAAWC 

--Purpose: This package translates a requested resource into its physical location 


with text_io;use text_io; 
with MESSAGE_PKG;use MESSAGE_PKG; 
with ADMINISTER_PKG;use ADMINISTER_PKG; 


package RESOLVE_RESOURCE_LOC_PKG is 


procedure RESOLVE_RESOURCE_LOC(REQ_RESOURCE : in MESSAGE; MOD_OBJ_LOC-s iri ADMINISTER 


77 


RESOURCE_PHYS_LOC : out MESSAGE) ; 


end RESOLVE_RESOURCE_LOC_PKG: 
package body RESOLVE_RESOURCE_LOC_PKG is . 
; 
procedure RESOLVE_RESOURCE_LOC(REQ_RESOURCE : in MESSAGE; MOD_OBJ_LOC : in ADMINISTER 
RESOURCE_PHYS._LOC : out MESSAGE) is 
begin 
Put_line(Item => “Inside operator RESOLVE_RESOURCE_LOC"); 


end PESYLVE_RESOURCE_Loc; 


end PRESOLVE_RESOURCE_LOC_PKG; 
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--Author: Capt Matt Howell 


--Date: 13 June 1997 
--Project: Thesis - A CAPS Prototype of the SAAWC 
--Purpose: This package retrieves DB_RECORDS types from database 


with text_io;use text_io; 
with DB_RECORD_PKG;use DB_RECORD_ PKG; 


package RETRIEVE_FILE. PKG is 


-” 


procedure RETRIEVE_FILE(REQ_RETR_FILE : in DB_RECORD; FILE_RETR_MSG : out DB_RECORD) ; 


end RETRIEVE_FILE_PKG; nw 
package body RETRIEVE_FILE_PKG is 


procedure RETRIEVE_FILE(REQ_RETR_FILE : in DB_RECORD; FILE_RETR_MSG : out DB_RECORD) 
is 


= 
= 


begin 
Put_line(Jtem => “Inside operator RETRIEVE BILE"); 
end RETRIEVE_FILE; 


end RETRIEVE_FILE_PKG; 
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SAAWC.retrieve_object.a Wed Jul 2 16:30:12 1997 


-~filename: SAAWC.retrieve_object.a 


--Author: Capt Matt Howell 


--Date: 13 June 1997 
--Project: Thesis - A CAPS Prototype of the SAAWC 
--Purpose: This package retrieves DB_RECORDS types from database 


with text_io;use text_io; 
with DB_RECORD_PKG;use DB_RECORD_PKG; 


package RETRIEVE _OBJECT_PKG is 


procedure RETRIEVE_OBJECT(REQ_RETR_OBJ : in DB_RECORD; OBJ_RETR_MSG : out PB RECORD): 


= 
te dante 


end RETRIEVE _OBJECT_PKG; ' 
package body RETRIEVE_OBJECT_PKG is 


procedure RETRIEVE_OBJECT(REQ_RETR_OBJ : in DB_RECORD; OBJ_RETR_MSG : out DB_RECORD) 
is 


begin 
Put_line(Item => “Inside operator RETRIEVE OBJECT"); 
end RETRIEVE_OBJECT; 


end RETRIEVE_OBJECT_PKG; 


ZNO 


--filename: SAAWC.retrieve_record.a 


--Author: Capt Matt Howell 

~-Date: 13 June 1997 

--Project: Thesis - A CAPS Prototype of the SAAWC 

~-Purpose: This package retrieves DB_RECORDS types from database 


Wilh Caxt ieastrse bext ia; 
with DB RECORD_PKG;use DB_RECORD_PKG; 


package RETRIEVE_RECORD_PKG is 


procedure RETRIEVE_RECORD({REQ_RETR_REC : in DB_RECORD; REC_RETR_MSG : out DB_RECORD) ; 


- 
os 


end RETRIEVE_RECORD_PKG; a 
package body RETRIEVE_RECORD_PKG is 


procedure RETRIEVE_RECORD(REQ_RETR_REC : in DB_RECORD; REC_RETR_MSG : out DB_RECORD) 
is . 


begin 
Put_line(Item => “Inside operator RETRIEVE RECORD") ; 
end RETRIEVE_RECORD; 


end RETRIEVE_RECORD_PKG; 
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SAAWC.security_manager.a Wed Jul 2 16:31:50 1997 


--filename: SAAWC.security_manager.a 


--Author: Capt Matt Howell 


--Date: 1 July 1997 
--Project: Thesis - A CAPS Prototype of the SAAWC 
--Purpose: This package handles use of certificates, keys, signatures for user- 


a generated messages 


with text_io;use text_io; 
with MESSAGE_PKG;use MESSAGE_PKG; 
with CERTIFICATE_PKG; use CERTIFICATE_PKG; 


with KEY_PKG;use KEY_PKG; 
with SIGNATURE_PKG;use SIGNATURE_PKG; 


package SECURITY_MANAGER_PKG is ' 


procedure SECURITY_MANAGER (MSG_OUT : in MESSAGE; REQ_SECURE_SESSION : in MESSAGE; 
ISS_CERTIFICATE : in CERTIFICATE; ISS_KEY : in KEY; 
ISS_SIGNATURE : in SIGNATURE; REQ_CERTIFICATE : out CERTIF 


ICATE; 
REQ_KEY : out KEY; REQ_SIGNATURE : out SIGNATURE; s 


SECURE_MSG_OUT : out MESSAGE); j 


end SECURITY_MANAGER_PKG; ‘ 
package body SECURITY MANAGER PKG is 


procedure SECURITY MANAGER (MSG_OUT : in MESSAGE; REQ_SECURE_SESSION : in MESSAGE; 
ISS_CERTIFICATE : in CERTIFICATE; ISS_KEY : in KEY; 
TSS_SIGNATURE : in SIGNATURE; REQ_CERTIFICATE : out CERTIF' 


ICATE; 
REQ_KEY : out KEY; REQ_SIGNATURE : out SIGNATURE; 


SECURE_MSG_ OUT : out MESSAGE) is 
begin 
Put_line(Item => “Inside operator SECURITY_MANAGER"}; 


end SECURITY_MANAGER; 


end SECURITY_MANAGER_PKG; 
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— — 


a 
--filename: SAAWC.server_thread_manager.a 
-~-Author: Capt Matt Howell 
--Date: 1 July 1997 
--Project: Thesis - A CAPS Prototype of the SAAWC 
--~Purpose: This package tracks communication between broker and servers 


with text_io;use text_io; 

with ALERT_PKG;use ALERT_PKG; 

with DB_RECORD_PKG;use DB_RECORD_PKG; 

with MAP_PKG;use MAP_PKG; 

with MESSAGE_PKG;use MESSAGE_PKG; 

with TRACKS_PKG;use TRACKS_PKG; 

with CERTIFICATE_PKG;use CERTIFICATE_PKG; -- 
with KEY_PKG;use KEY_PKG; f 
with SIGNATURE_PKG;use SIGNATURE_PKG; 

with TIMESTAMP_PKG;use TIMESTAMP_PKG; 

with DEVICE_PKG;use DEVICE_PKG; 


package SERVER_THREAD_MANAGER_PKG is 


in MESSAGE; 


procedure SERVER_THREAD_MANAGER(FTP_MSG_IN in MESSAGE; HTTP_MSG_IN 
im MESSAGE; 


SMTP_MSG_IN : in MESSAGE; SNMP_MSG_IN 


UDP_MSG_IN im MESSAGE; DELIVER_MAP : in MAP; 

DEVICE_STATUS : im BOOLEAN; ISSUE_CERTIFICATE : in CE 
RTIFICATE; 

ISSUE_KEY : in KEY; ISSUE_SIGNATURE in SIGNATURE; 

JOB_SPOOLED_MSG : in MESSAGE; NEW _TIME in TIMESTAMP 

REQUEST_FILE in MESSAGE; RESOURCE_PHYS. Loc in MES 
SAGE; 

RESPOND_ALERTS : in ALERT; RESPOND_MSG : in MESSAGE; 

RESPOND_MSGS : in MESSAGE; RESPOND_TEMPLATE : in MESS 
AGE: 

RESPOND_TRACKS : in TRACKS; RESPOND_VALID_TRACKS : in 
TRACKS ; 

SUBSCRIBE_DB_CHANGES in DB_RECORD; SUBSCRIBE_TPACKS 

in TRACKS; 

VALID_CLIENT_REQ in MESSAGE; CS_DEL_TRACKS : out TR 
ACKS; 

FEED_MSGS : out MESSAGE; ADMINISTER_DEVICE out DEVI 
CEs 

PRINT_REQUEST : out MESSAGE; RECEIVE_FILE out MESSA 
GE; 

REQ_ALERTS out ALERT; REQ_DATA : out DB_RECORD; 

REQ RESOURCE Out MESSAGE; REQ_TEMPLATE out MESSAG 
Ee 

REQ_TRACKS out TRACKS; REQUEST_CERTIFICATE out CE 
RTIFICATE; 

REQUES T_KEY out KEY; REQUEST_MAP : out MAP; 

REQUEST_MSGS : out MESSAGE; REQUEST_SIGNATURE out S$ 
IGNATURE; 

REQUEST_TRACKS : out TRACKS; RESPOND_DB_CHANGE : out 
DB_RECORD; 

SESSION_CONTROL : out MESSAGE; SESSION_DATA out MES 
SAGE; 


SRV_RESPONSE : out MESSAGE) ; 


end SERVER_THREAD_MANAGER_PKG; 
package body SERVER_THREAD_MANAGER_PKG is 


procedure SERVER_THREAD_MANAGER (FTP_MSG_IN in MESSAGE; HTTP_MSG_IN : in MESSAGE; 
SMTP_MSG_IN in MESSAGE; SNMP_MSG_IN in MESSAGE; 
UDP_MSG_IN : in MESSAGE; DELIVER_MAP : in MAP; 


DEVICE_STATUS : in BOOLEAN; ISSUE_CERTIFICATE in Ck 


fl 

RTIFICATE; 

E; 

TAMP; 
MESSAGE; 

GE; 

MESSAGE; 
im TRACKS; 

ACKS in TRACKS; 

t TRACKS; 


DEVICE; 


ESSAGE; 


SSAGE; 


EP CERTOEEICATE? 


ut SIGNATURE; 
out DB RECORD; 


MESSAGE; 


begin 
Put_line(Item => “Inside 
end SERVER_THREAD_MANAGER; 


end SERVER_THREAD_MANAGER_PKG; 


ISSUE_KEY : in KEY; ISSUE_SIGNATURE : in SIGNATUP 
JOB_SPOOLED_MSG : in MESSAGE; NEW_TIME : in TIMES 
PEGUEST FILE in MESSAGE; RESOURCE_PHYS_LOC : in 
RESPOND_ALERTS : in ALERT; RESPOND_MSG : in MESSA 


RES POND_MSGS in MESSAGE; RESPOND_TEMPLATE : in 


RESPOND_TRACKS in TRACKS; RESPOND_VALID_TRACKS 


SUBSCRIBE_DB_CHANGES : in DB_RECORD; SUBSCPIBE_TP. 
VALID_CLIENT_REO in MESSAGE; CS_DEL_TRACKS : ou 
FEED_MSGS out MESSAGE; ADMINISTER_DEVICE : out 


PRINT2 REQUEST =: out MESSAGE; RECEIVE_FILE out M 


out ALERT; REQ_DATA : out DB_RECORD; 
out MESSAGE; REQ_TEMPLATE : out HME 


REQ_ALERTS 
PEQ_RESOURCE 


REQ_TRACKS : out TRACKS; REQUEST_CERTIFICATE : ou 


REQUEST KEY out KEY; REQUEST_MAP : out MAP; 
PEQUEST_MSGS : out MESSAGE; REQUEST_SIGNATURE : o 


PEQUEST. TRACKS : out TRACKS; RBRESPOND_DB CHANGE : 


out MESSAGE; SESSION_DATA : out 


—N 


N 
out MESSAGE) is C] 


SESS ION_CONTROL 


SRV_RESPONSE 


operator SERVER_THREAD_HMANAGER “) ; 


SAAWC.session_manager.a Wed Jul 2 16:35:01 1997 


--filename: SAAWC.session_manager.a 

--Author: Capt Matt Howell 

--Date: 1 July 1997 

--Project: Thesis - A CAPS Prototype of the SAAWC 

--Purpose: This package manages the operation of the different communication protocols 


with text_io;use text_io; 
with MESSAGE_PKG;use MESSAGE_PKG; 


package SESSION_MANAGER_PKG is 


procedure SESSION_MANAGER(DATA_STR_IN : in MESSAGE; SESSION_DATA : in MESSAGE; 
FTP_IN : out MESSAGE; FTP_MSG_OUT : out MESSAGES ~ 
HTTP_IN : out MESSAGE; HTTP_MSG_OUT : out,MESSAGE; 
SMTP_IN : out MESSAGE; SMTP_MSG_OUT : out MESSAGE; 
SNMP_IN : out MESSAGE; SNMP_MSG_OUT : out MESSAGE; 
UDP_IN : out MESSAGE; UDP_MSG_OUT : out MESSAGE; 
SESSION_CONTROL : in MESSAGE); 


end SESSION_MANAGER_PKG; 


package body SESSION_MANAGER_PKG is 
* A 
procedure SESSION_MANAGER(DATA_STR_IN : in MESSAGE; SESSION_DATA : in MESSAGE: 

FTP_IN : out MESSAGE; FTP_MSG_OUT : out MESSAGE; 
HTTP_IN : out MESSAGE; HTTP_MSG_OUT : out MESSAGE; 
SMTP_IN : out MESSAGE; SMTP_MSG_OUT : out MESSAGE; 
SNMP_IN : out MESSAGE; SNMP_MSG_OUT : out MESSAGE; 
UDP_IN : out MESSAGE; UDP_MSG_OUT : out MESSAGE; 
SESSION_CONTROL : in MESSAGE) is 


begin 
Put_line(Item => "Inside operator SESSION_MANAGER"} ; 
end SESSION_MANAGER; 


end SESSION_MANAGER_PKG; 


» 
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-~-Author: Capt Matt Howell 
~“fale: 12 June9?/ 

--Project: Thesis - A CAPS Prototype of the SAAWC 
--Purpose: 


--This file is where I declare the type SIGNATURE 


with text_io; 

use text_io; 

with file_name_PKG; 

use file_name_PKG; 
package SIGNATURE_PKG is 
type SIGNATURE is record 


signature_name : f11]1¢_name; 
request : Boolean := True; 


end record; 
function EMPTY return SIGNATURE; 
end SIGNATURE_PKG; 
package body SIGNATURE_PKG is 
function EMPTY return SIGNATURE is 
dummy : SIGNATUPE; 
begin 
dummy .signature_name := (OTHERS 
return dummy; 
end EMPTY; 


end SIGNATURE_PKG; 
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SAAWC.smtp_processor_in.a Wed Jul 


--filename: SAAWC.smtp_processor_in.a 

--Author: Capt Matt Howell 

--Date: 13 June 1997 

~-Project: Thesis - A CAPS Prototype of the SAAWC 
-~Purpose: This package processes incoming SMTP messages 


With text_io;use text_io; 
with MESSAGE_PKG;use MESSAGE_ PKG; 


package SMTP_PROCESSOR_IN_PKG is 


2 16:35:40 1997 


procedure SMTP_PROCESSOR_IN(SMTP_IN : in MESSAGE; SMTP_MSG_IN : out MESSAGE); 


end SMTP_PROCESSOR_IN_PKG; 


package body SMTP_PROCESSOR_IN_PKG is 


o? 


2 
t v 


procedure SMTP_PROCESSOR_IN (SMTP_IN : in MESSAGE; SMTP_MSG_IN : out MESSAGE) is 


begin 


Put_line(Item => "Inside operator SMTP_PROCESSOR_IN "); 


* 
end SMTP_PROCESSOP_IN; 


end SMTP PPROCESSOP_IN_PKG; 


Pi yiss 





--filename: JC .smtp_processor_out.a 
--Author: Capt Matt Howell 
~~Date: 17 June 1997 


--Project: Thesis - A CAPS Prototype of the SAAWC 
--Purpose: This package processes outgoing SMTP messages 


with text_io;use text_io; 
with MESSAGE_PKG;use MESSAGE_ PKG; 


package SMTP_PROCESSOR_OUT_PKG is 


procedure SMTP_PROCESSOR_OUT(SMTP_MSG_OUT : in MESSAGE; SMTP_OUT : out MESSAGE); 


end SMTP_PROCESSOR_OGUT_PKG; a 


package body SMTP_PROCESSOR_OUT_PKG is 


procedure SMTP_PROCESSOR_OUT (SMTP_MSG_OUT : in MESSAGE; SMTP_OUT : out MESSAGE) is 


begin 


— 
=e 


Pit Pine ilem <6 “Tnside operator SMTP PROCESSOR OUT" 
* 


end SMTP_PROCESSOR_OUT; 


end SMTP_PROCESSOR_OUT_PKG; 
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SAAWC.snmp_processor_in.a Wed Jul 2 16:37:03 1997 


--filename: SAAWC.snmp_processor_in.a 


-~-Author: Capt Hatt Howell 

--Date: 13 June 1997 

--Project: Thesis - A CAPS Prototype of the SAAWC 
--Purpose: This package processes incoming SNMP messages 


with text_io;use text_io; 
with MESSAGE_PKG;use MESSAGE_PKG; 


package SNMP_PROCESSOR_IN_PKG is 


procedure SNMP_PROCESSOR_IN(SNMP_IN : in MESSAGE; SNMP_MSG_IN : out MESSAGE); 


“~ 
hosts 


end SNMP_PROCESSOR_IN_PKG; ve 

package body SNMP_PROCESSOR_IN_PKG is 
procedure SNMP_PROCESSOR_IN (SNMP_IN : in MESSAGE; SNMP_MSG_IN : out MESSAGE) is 
begin 


Put_line(Item => "Inside operator SNMP_PROCESSOR_IN") ; 


+ 


end SNIP_PROCESSOP_IN; 


end SHifP_PROCESSOR_IN_PKG; 


pH.) 





--Author: Capt Matt Howell 

--Date: 17 June 1997 

--Project: Thesis -~- A CAPS Prototype of the SAAWC 
--Purpose: This package processes outgoing SNMP messages 


with text_io;use text_io; 
with MESSAGE_PKG;use MESSAGE_PKG; 


package SNMP_PROCESSOR_OUT_PKG is 
procedure SNMP_PROCESSOR_OUT(SNMP_MSG_OUT : in MESSAGE; SNMP_OUT : out MESSAGE) ; 


-< 


end SNMP_PROCESSOP_OUT_PKG; 7 


package body SNMP_PROCESSOR_OUT_PKG is 
procedure SNMP_PROCESSOR_OUT (SNMP_MSG_OUT : in MESSAGE; SNMP_OUT : out MESSAGE) 
begin 


Put_line{Item => "Inside operator SNMP_PROCESSOR_OUT") ; 


* 


end SNMP_PROCESSOR_OUT; 


end SHMP_PROCESSuk OUT, PKG; 


is 
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SAAWC.spool_file.a Wed Jul 2 16:38:32 1997 1 


--filename: SAAWC.spool_file.a 


--Author: Capt Matt Howell 


~-Datews]) July 1997 
--Project: Thesis - A CAPS Prototype of the SAAWC 


--Purpose: This packaqe manages print jobs 


with text_io;use text_io; 
with PATH _PKG;use PATH_PKG; 
with MESSAGE PKG;use MESSAGE_PKG; 


package SPOOL_FILE_PKG is 


procedure SPOOL_FILE(FILE : in PATH; FILE_NAME : in PATH; JOB_SPOOLEDLMSG-: out MESSA 


GE): f 
end SPOOL_FILE_PKG; 


package body SPOOL_FILE_PKG is 


procedure SPOOL_FILE(FILE : in PATH; FILE_NAME : in PATH; JOB_SPOOLED_MSG : out MESSA i 
GE) is ; ; 


begin » 
Put_line(Item => “Inside operator SPOOL_FILE"); 
end SPOOL_FILE; 


end SPOOL_FILE_PKG; 


Ji ape 





--Author: Capt Matt Howell 

-~-Date: 13 June 1997 

--Project: Thesis - A CAPS Prototype of the SAAWC 
--Purpose: This package processes TADIL J messages 


with text_io;use text_io; 
with TRACKS _PKG;use TRACKS_PKG; 


package TADIL_J_PKG is 


procedure TADIL_J(FEED_TRACKS : out TRACKS) ; 


-_ 


end TADIL_J_PKG; Fa 
package body TADIL_J_PKG is 
procedure TADIL_J (FEED_TRACKS : out TRACKS) is 
begin 
Put_line{Item => “Inside operator TAPIL J"); 
. 


end TADIL_J; 


end TADIL_J_PKG; 
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SAAWC.template database.a Wed Jul 2 16:42:07 1997 


--filename: SAAWC.template_database.a 

--Author: Capt Matt Howell 

--Date: 1 July 1997 

--Project: Thesis - A CAPS Prototype of the SAAWC 

-~Purpose: This package delivers message templates to the user 


with text_io;use text_io; 
with MESSAGE _PKG;use MESSAGE_PKG; 


package TEMPLATE_DATABASE_PKG is 


procedure TEMPLATE _DATABASE(REQ_TEMPLATE : in MESSAGE; RESPOND_TEMPLATE : 


); ate 
end TEMPLATE_DATABASE_PKG; 
package body TEMPLATE_DATABASE_PKG is 


procedure TEMPLATE_DATABASE(REQ_TEMPLATE : in MESSAGE; RESPOND_TEMPLATE 
) is 
begin 
% : 
Put_line(Item => “Inside operator TEMPLATE DATABASE") ; 
end TEMPLATE_.DATABASE; 


end TEMPLATE_DATABASE_ PKG; 


Out MESSAGE 


~ 


out MESSAGE 


A 


a 


Zoi 





--Author: Capt Matt Howell 

--Vace: t2 Jun 37 

--Project: Thesis - A CAPS Prototype of the SAAWC 
--~Purpose: 


Whaci biber gas where bo odeehate the Cygae VMES AMP 


package TIMESTAMP_PKG is 

type TIMESTAMP is range 0..86400; 

function EMPTY return TIMESTAMP; 

end TIMESTAMP _PKG; 

package body TIMESTAMP_PKG is 
function EMPTY return TIMESTAMP is 


dummy : TIMESTAMP; 


return dummy; 
end EMPTY; 


end TIMESTAMP_PKG; 


N 
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SAAWC.track_display _db.a Wed Jul 2 16:42:45 1997 


--filename: SAAWC.track_display_db.a 


--Author: Capt Matt Howell 


--Date: 1 July 1997 
-~Project: Thesis - A CAPS Prototype of the SAAWC 
--Purpose: This package tracks track requests and displays results 


wilh text_io;use text_iv; 
with TRACKS_PKG;use TRACKS_PKG; 


package TRACK_DISPLAY_DB_PKG is 


procedure TRACK _DISPLAY_DB(AD_DEL_TRACKS : in TRACKS; AD_SUB_TRACKS : out TRACKS; 
FILTER_ TRACKS : in TRACKS); ah 


end TRACK_DISPLAY_.DB_PKG; 


package body TRACK_DISPLAY_DB_PKG is 


procedure TRACK_DISPLAY_DB(AD_DEL_TRACKS : in TRACKS; AD_SUB_TRACKS : out TRACKS; 
FILTER_TRACKS : in TRACKS) is 


begin 
» 


Put_line(Item => “Inside operator TRACK_DISPLAY_DB"}; 


. 


end TRACK_DISPLAY_DB; 


end TRACK_DISPLAY_DB_PKG; 


Zo2 











--filename: SAAWC.tracks.a 
--Author: Capt Matt Howell 
--Date: 12 Jun 97 


--Project: Thesis - A CAPS Prototype of the SAAWC 


=-Furppose: 


--This file is where I declare the type TRACKS 


with text_io;use text_io; 
with TIMESTAMP_PKG;use TIMESTAMP_PKG; 


package TRACKS_PKG is 


package nat_io_pkg is new text_io.integer_io(natural) ; 


type track_type is (AIR, SURFACE, SUBSURFACE, SPACE, GROUND, UNK__TRACK) ; 
package track_io is new text_io.enumeration_io(track_type) ; 


subtype lat_type is natural range 0..999999; 
subtype long_type is natural range 0. .9999999; 
subtype alt_type is natural range 0..9999999; 
subtype bearing_type is natural range 0..359; 


type status_type is (FRIEND, HOSTILE, UNK STATUS) ; 
package status_iv is new text_io.enumeration_io(status type); 


type model_tvpe 1s (FA18, FA14, AV8B, CH46, CH53, 


type TRACKS; 
type TRACKS_ACCESS is access TRACKS; 


o7 


type TRACKS is record 
track_id : Natural := 0; 
track : track_type := UNK_TRACK; 
Feporkesource = String(]..10) := “ 


long = leng=type <= 0; 

alt : alt_type := 0; 

bearing : bearing_type := 0; 
speed : Natural := 0; 


status : status_type := UNK_STATUS; 
model : model_type := UNK_MODEL; 
time : TIMESTAMP := 0 
mest =: TRACKS ACCESS <= NULL: 
request : Boolean := True; 

end record; 


° 
t 

e 
e 


function EMPTY return TRACKS; 
end TRACKS_PKG; 
package body TRACKS_PKG is 
function EMPTY return TRACKS is 
dummy : TRACKS; 
begin 
return dummy; 


end EMPTY; 


“e 





UNK_MODEL) ; 
package model_io is new text_io.enumeration_io(model_type) ; 
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SAAWC.udp_processor_in.a Wed Jul 2 16:43:44 1997 


--filename: SAAWC.udp_processor_in.a 


--Author: Capt Matt Howell 

--Date: 13 June 1997 

--Project: Thesis - A CAPS Prototype of the SAAWC 
--Purpose: This package processes incoming UDP messages 


with text_io;use text_io; 
with MESSAGE_PKG;use MESSAGE_PKG; 
package UDP_PROCESSOR_IN PKG is 

procedure UDP_PROCESSUR_IN(UDP_IN : in MESSAGE; UDP_MSG_IN 
end UDP_PROCESSOR_IN_PKG; 
package body UDP_PROCESSOR_IN_PKG is 

procedure UDP_PROCESSOR_IN (UDP_IN : in MESSAGE; UDP_MSG_IN : 

begin 

Put_line(Item => “Inside operator UDP_PROCESSOR_IN"); 
. 


end UDP_PROCESSOR_IN; 


end UDP_PROCESSOR_IN_PKG; 


out MESSAGE) ; 


2 
f 


out MESSAGE) 


a) 


Pa 
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--Author: Capt Matt Howell] 

-~Date: 17 June 1997 

--Project: Thesis - A CAPS Prototype of the SAAWC 
--Purpose: This package processes outgoing UDP messages 


with text_io;use text_io; 
with MESSAGE_PKG;use MESSAGE_PKG; 


package UDP_PROCESSOR_OUT_PKG is 


procedure UDP_PROCESSOR_OUT(UDP_MSG_OUT : in MESSAGE; UDP_OUT : out MESSAGE) ; 


end UDP_PROCESSOR_OUT_PKG; (7 


package body UDP_PROCESSOR_OUT_PKG is 
procedure UDP_PROCESSOR_OUT (UDP_MSG_OUT : in MESSAGE; UDP_OUT : out MESSAGE) is 


begin 


Put_line({Lem => "Inside operator UDP_PROCESSOR_OUT") ; 


* 


end UDP_PROCESSOR_OUT; 


end UDP_PROCESSOR_OUT_PKG; 
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SAAWC.update_ filter.a Wed Jul 


~-filename: SAAVWC.update_filter.a 

--Author: Capt Matt Howell 

-~Date: 1 July 1997 

-~Project: Thesis - A CAPS Prototype of the SAAWC 


--Purpose: This package tracks requested track filters 


with text_io;use text_io; 
with TRACKS_PKG;use TRACKS_PKG; 


package UPDATE_FILTER_PKG is 


procedure UPDATE_FILTER(REQ_TRACKS : in TRACKS; 


end UPDATE_FILTER_PKG; 


package body UPDATE_FILTER..PKG is 


procedure UPDATE_FILTER({PREO_TRACKS : in TRACKS; 


begin 


, 


‘ 


PESTER 


FILTER 


Put _line({Item => "Inside operator UPDATE_FILTER") ; 


end UPDATE. FILTER; 


end UPDATE_FILTER_PKG; 


» 


« 
° 


out TRACKS) ; 


out TRACKS) 


2 16:44:49 1997 


is 
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--Author: Capt Matt Howell 

-=Bace: I Jury 1997 

+-Project: Thesis - A CAPS Prototype of the SAAWC 

-- Purpose: This package updates the message database for the alert 


with text_io;use text_io; 
with DB_RECORD_PKG;use DB_RECORD_PKG; 
with MESSAGE _PKG;use MESSAGE_PKG; 


packaga UPDATE MSGS PKG is 


procedure UPDATE_MSGS(FEED_MSGS : in MESSAGE; ALERTS_MESSAGE_DB 


end UPDATE_MSGS_PKG; 


package body UPDATE_MSGS_ PKG is 


procedure UPDATE_MSGS{FEED_MSGS : in MESSAGE; ALERTS_MESSAGE_DB 
begin 

Put_line(Item => “Inside operator UPDATE_MS&S")} ; 
end UPDATE_MSGS; 


end UPDATE_MSGS PKG; 


SeVVeIy 


out -DB_RECORD} ; 
3 


ie 


out DB_RECORD) 


is 
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SAAWC.update_ tactical db.a Wed Jul 2 16:46:51 1997 


--filename: SAAWC.update_tactical_db.a 


--Author: Capt Matt Howell 

~-Date: 1 July 1997 

--Project: Thesis - A CAPS Prototype of the SAAWC 

--Purpose: This package updates the record database for the correlation server 


with text_io;use text_io; 
with DB_RECORD_PKG;use DB_RECORD_PKG; 


package UPDATE_TACTICAL_DB_PKG is 


procedure UPDATE_TACTICAL_DB(RESPOND_DB_CHANGE : in DB_RECORD; CORREL_RECORD_DB : out 
DB_RECORD) ; ine 


3 


if 


end UPDATE_TACTICAL_DB_PKG; 


package body WPDATE_TACTICAL_DB_PKG is 


procedure UPDATE_TACTICAL_DB(RESPOND_DB_CHANGE : in DB_RECORD; CORREL_RECORD_DB : out 
DB_RECORD) is 
begin 
» 


Put_line(Item => "Inside operator UPDATE_TACTICAL_DB"); 


end UPDATE_TACTICAL_DB; 


end UPDATE__TACTICAL_DB_PKG; 
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--Author: Capt Matt Howell 


--Date: 


13 June 1997 


--Project: Thesis - A CAPS Prototype of the SAAWC 
--Purpose: This package retrieves the system time 


with Calendar; 
with text_io;use text_io; 
with TIMESTAMP_PKG; use TIMESTAMP_PKG; 


package 


UPDATE_TIME_PKG is 


procedure UPDATE_TIME(NEW_TIME : out TIMESTAMP) ; 


end UPDATE_TIME_PKG; 


package body UPDATE_TIME_PKG is 

procedure UPDATE_TIME (NEW_TIME : out TIMESTAMP) is 
-- Current Time + Ada.Calendar.Time; 
-- SecsPastMidnight : TIMESTAMP; 
-- MinsPastMidnight : natural; * 
-- Secs : natural; 
-- Mins >: natural; 
-- Hrs natural; 

begin 


Put_line(ltem => “Inside operator UPDATE_TIME") ; 


CurrentTime := Ada.Calendar.Clock; 

SecsPastMidnight := TIMESTAMP (Ada.Calendar.Seconds(CurrentTime} ); 
MinsPastMidnight := natural (SecsPastMidnight /60); 

Secs ° := natural (SecsPastMidnight REM 60); 

Mins := MinsPastMidnight REM 60; 

Hrs := MinsPastMidnight / 60; 


Ada.Text_IO.Put (Item => “The current time is "); 
Ada.Integer _Ada.Text_IO.Put (Item => Hrs, Width => 1); 
Ada.Text_I0.Put (Item => *°:’); 


if Mins < 10 then 
haa. Text 10. Put “(ltem. => 7 071; 
end if; 


Ada.Integer_Ada.Text_IO.Put (Item => Mins, Width => 1); 


Ada .Text_IO.Put (Item => ’:’}); 


if Secs < 10 then 
hda.Tex€_©O.Put (Item => 70 7}; 
end if; 


Ada.Integer_Ada.Text_IO.Put (Item => Secs, Width => 1); 


NEW_TIME := SecsPastMidnight; 


end UPDATE_TIME; 


end UPDATE_TIME_PKG; 
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SAAWC.update_tracks.a Wed Jul 2 16:48:56 1997 


filename: SAAWC.update tracks.a 


“Author: Capt Matt Howe) ] 


--Date: 1 July 1997 
--Project: Thesis - A CAPS Prototype of the SAAWC 


--Purpose: This package updates the track database for the track server 


with text_io;use text_io; 
with TRACKS_PKG;use TRACKS_PKG; 


package UPDATE_TRACKS_PKG is 

procedure UPDATE_TRACKS(FEED_TRACKS : in TRACKS; TRACK_DB 
end UPDATE_TRACKS_PKG; 
package body UPDATE_TRACKS_PKG is 

procedure UPDATE_TRACKS(FEED_TRACKS : in TRACKS; TRACK_DB 


begin 


Put_line(Item => "Inside operator UPDATE_TRACKS"); 


» 


end UPDATE_TRACKS; 


end UPDATE_TRACKS_PKG; 


out 


out 


TRACKS} ; 


oats 


Ae 


TRACKS) 


~ 


is 
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~-filename: SAAWC.validate_certificate.a 


--Author: Capt Matt Howell 


-~-Date: 1 July 1997 
--Project: Thesis - A CAPS Prototype of the SAAWC 
--Purpose: This package manages certificates for the security server 


with text_io;use text_io; 
with CERTIFICATE_PKG;use CERTIFICATE_PKG; 


package VALIDATE_CERTIFICATE_PKG is 


procedure VALIDATE_CERTIFICATE (REQUEST_CERTIFICATE: in CERTIFICATE; 


LSSUBZCERTIRTGRTE : OUL CERTIFICATE); <-- 
4 


f 


end VALIDATE_CERTIFICATE_PKG; 
package body VALIDATE_CERTIFICATE_PKG is 


procedure VALIDATE_CERTIFICATE (REQUEST_CERTIFICATE: in CERTIFICATE; 
ISSUE_CERTIFICATE : out CERTIFICATE) is 


begin 
» 


Put_line(Iltem => “Inside operator VALIDATE_CERTIFICATE") ; 


end VALIDATE_CERTIFICATE; 


end VALIDATE_CERTIFICATE_PKG; 
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SAAWC.validate_key.a Wed Jul 2 16:50:12 1997 


--filename: SAAWC.validate_key.a 


--Author: Capt Matt Howell 


--Date: 1 July 1997 
--Project: Thesis - A CAPS Prototype of the SAAWC 
-~-Purpose: This package manages keys for the security server 


with text_io;use text_io; 
with KEY_PKG;use KEY_PKG; 


package VALIDATE_KEY_PKG is 

procedure VALIDATE_KEY (REQUEST_KEY : in KEY; ISSUE_KEY : out KEY); 
end VALIDATE_KEY_PKG; G 
package body VALIDATE_KEY_PKG is 

procedure VALIDATE_KEY (REQUEST_KEY : in KEY; ISSUE_KEY : out KEY) is 

begin 


Put_line(Item => “Inside operator VALIDATE_KEY"); 
. 


end VALIDATE_KEY; 


end VALIDATE_KEY_PKG; 
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--filename: S$ -validate_signature.a 


--Author: Capt Matt Howell 

--Date: 1 July 1997 

--Project: Thesis - A CAPS Prototype of the SAAWC 
--Purpose: This package manages signatures for the security server 


with text_io;use text_io; 
with SIGNATURE_PKG;use SIGNATURE_PKG; 


package VALIDATE_SIGNATURE_PKG is 


procedure VALIDATE_SIGNATURE(REQUEST_SIGNATURE : in SIGNATURE; 
SIGNATURE) ; 


end VALIDATE_SIGNATURE_PKG; 
package body VALIDATE_SIGNATURE_PKG is 


procedure VALIDATE_SIGNATURE (REQUEST_SIGNATURE : in SIGNATURE; 
SIGNATURE) is 


begin 
* 
Put_line{Item => “Inside operator VALIDATE_SIGNATURE") ; 
end VALIDATE_SIGNATURE; 


end VALIDATE_SIGNATURE_PKG; 





ISSUE_SIGNATURE 


ISSUE_SIGNATURE 
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APPENDIX B 


SAAWC MESSAGE SCHEDULE 
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SAAWC MESSAGE SCHEDULE 




























TIME, MASTER ——C“‘tws*s|sSsCSAIR,DEFSYSDISPLAY =| BROKER 
| 1 _|new_time=970519080801 i Cs 
| 2 Ifilter_tracks=tracks_|_want filter_tracks=tracks_|_want KS. oe 
| 3  |ad_sub_tracks=tracks_|_want ad_sub_tracks=tracks_|_want eee 
| 4  |client_req=tracks_| want Po eclient_req=tracks_|_want 

| 5 |valid_client_req=tracks_|_want Pe fvatlid_client_req=tracks_|_want 

| 6 |req_tracks=tracks_|_want PO freg_tracks=tracks_|_want 

| 7 |request_tracks=tracks_|_want request_tracks=tracks | want 

| 8 {filter ae 


respond_tracks=tracks_|_ want 
| 10 |filter=tracks_|_want 
41 {new_time=970519080811 
| 12  |subscribe_tracks=tracks_|_want 
| 13  |subscribe_db_changes=tracks_|_want 
cs_del_tracks=tracks_|_ want 
| 15 |track_db=tracks_|_want 








cs_del_tracks=tracks_I want 


=k 
- 





req_data=tracks_|_want 


req_data=tracks_I_ want 
req_data_type=tracks_|_ want 
req_retr_rec=tracks_|_ want 
req_retr_msg=tracks_|_ want 
respond_msg=tracks_|_want 
new_time=970519080821 















respond_db_changes=tracks_|_want 





respond_db_change=tracks_l_ want 
record _db=tracks_|_ want 
valid_tracks=tracks_|_ want 
respond_valid_tracks=tracks_|_want 
| 26 jmanage_template=add_spot_rep_temp 
srv_response=tracks_| want 
valid_srv_response=tracks_|_want 
| 29 |ad_del_tracks=tracks-l-want 
| 30 |feed_tracks=TADIL_J TRACKS 


| 31  |new_time 
|) 32 |filter_maps=map_|_want filter_maps=map_|_ want 
map_|_want ad_sub_map=map_l_ want 
=map_|_want 





NOT POPDOPPOP PERT ay ap Ss] Ss 
O1] |) CLP] | ©] OO} CO] NI] 














=tracks_| want 
| want 





Srv_response 
valid_srv_response=tracks_ 


ad_del_tracks=tracks l-want 








COIN 


















| want 
map_i_want 


client_req=map_ 
valid_client_req 
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SAAWC MESSAGE SCHEDULE 


TIME! = #£.MMASTER _ 


| 37  |manage_template=add_pos_rep_temp 
| 38 |deliver_map=map_|_want 


BROKER 





AIR DEF SYS DISPLAY 












valid_srv_response=map_|_ want 


an SS 
| | v_tesponse=map_|_want 
| 40 _|valid_srv_response=map_|_want Coo a 
| 41 _|new_time=970519080841 en | 
|_ want 








map_ map_|_ want 






alerts=alerts_| want 





req_alerts=alerts_|_want req_ 









respond_alerts=alerts_| want 








srv_response=alerts_|_want 










ad_sub_msgs=msgs_|_ want 








request_msgs=msgs_|_want 








respond_msgs=msgs_|_want 









srv_response=msgs_|_ want 
valid_srv_response=msgs_|_ want 
ad_del_msgs=msgs_|_ want 





ad_del_msgs=msgs_|_ want 





| 67 {HTTP_in=http_ bits for. adsd 
| 68 {HTTP_msg_in=http_bits for adsd 
| 69 |feed_msgs=http_bits for_adsd 
| 70 |message_db=http bits for _adsd 
| 71  |new_time=970519080911 

72 |respond_msgs=http_ bits for_adsd 
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SAAWC MESSAGE SCHEDULE 


TIME] ——ssMASTER”——(wsCdTsCSCSAIR,DEFSYSDISPLAY =| = BROKER 
| 73  |srv_response=http_bits_for_adsd PF tS V_respornse 

| 74 |valid_srv_response=http bits foradsd [ = = ~~ ~—s—s_sivalid_srv_response 
| 75 {ad_del_msgs=http bits for_adsd Pe tad_del_msgs=hitp_b 
| 76  |install_device=new_cdrom_drive 
| 77  \device_alive=new_cdrom_drive 
| 78 |print_file=file_|_want_to_print 
| 79  |print_req=file_|_want_to_print 
| 80 |client_req=file_|_want_to_print 
| 81  |new_time=970519080921 
| 82  |valid_client_req=file_|_want_to_print 
| 83  |req_resource=file_|_want_to_print 

| 84  |resource_phys_loc=file_|_want_to_print 
| 85 |print_request=file_|_want_to_print 





















its for_adsd 





















print_file=file_|_want_to_print 
print_req=file_|_want_to_print 











client_req=file_|_ want_to_print 








po vali_ctlient_req=file_|_want_to_print 
pf fe g_resourcefile_|_want_to_print 


























=file_|_want_to_print 





| 94  |file=file_|_want_to_print 
| 95  |data_stream=fil 


job_spooled_msg=file_|_want_to_print 





e_|_want_to_print 











Pf valid_srv_response 

Pp rint_response=file_|_want_to_print 
req_secure_session=my_secure_session | 
req_certificate=my_secure_session | JS eae 


valid_srv_response=file_|_want_to_print 





eee 
| 97  |srv_response=file_|_want_to_print 
ee 
oe 








=my_secure_session 


my_secure_session 
req_signature=my_secure_session 


| 105 |client_req=my_secure_session Pf clienit_regemy_secure session 








— 








my_secure_ session 


my_Secure_session 
=my_secure_session 


| 106 |valid_client_req=my_secure_session Pe valid_eclient_regq 
| 107 |request_certificate-my secure_session | 0 
| 108 2 ie ri, | 








request_ke 





request_key=my_secure_session _ 
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SAAWC MESSAGE SCHEDULE 


_ -MASTER 





AIR DEF SYS DISPLAY 


[ss BROKER 
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APPENDIX C 


ISSUES AND TECHNOLOGIES PERTAINING TO THE DEVELOPMENT OF 
TRUSTED PATHS IN A DISTRIBUTED HETEROGENEOUS NETWORK 
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A computing architecture which has come under increasing scrutiny within the computing 
industry in recent years is that of the three-tier architecture, based on the concept of separating 
business rules functionality from computational service functionality. Computational services 
might include infrastructure services such as communication services, data management services, 
or security services, or they might include common support application services such as 
correlation services and message processing services. [BUTLER96] proposes for the Department 
of Defense's (DOD) Global Command Control System (GCCS) a three-tier architecture in which 
a middle tier acts as a "broker", instantiating client and server "threads" of execution upon 
requests from clients to "subscribe" to specific services. The broker is responsible for determining 
not only the appropriateness of client and server subscriptions but also the relative priority of each 
request. This proposed architecture provides a potential solution to the difficult problem of 
discriminating between the real-time packet requirements and the non-real-time packet 
requirements of clients and servers communicating across a single, general purpose network. 
Though it doesn't describe the protocol for implementing the broker adjudication mechanism, it 
does identify a separate place for that functionality to reside, simplifying the implementation of 
both the client and the server functionality by isolating them from the complexity of resolving 
communication session priorities. For these reasons alone the three-tier architecture is becoming 
an attractive alternative, not only within the DOD, but also to private sector businesses currently 
operating within a traditional two-tier client/server architecture. 

The nature of this computing architecture, however, is by default, distributed. It is also 


anticipated that many three-tier implementations would be composed of widely varying computing 
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platforms, due to the economic pressures associated with leveraging investments in legacy 
systems and the scaled upgrading of individual systems within a network architecture. The 
combination of distributed computing and heterogeneous platforms within a_ three-tier 
architecture, however, poses a significant challenge to the development of secure computing 
mechanisms which can provide the degree of trust required by locally developed security policies. 
In order to meet this challenge, new security technologies designed for inter-network 
environments, and new methods for implementing legacy security technologies must be 
investigated as alternatives to the numerous proprietary intra-network security mechanisms in 
widespread practice today. 

From [CSC97], the following scenario provides motivation for why a typical GCCS 
operator might require the use of a trusted path between platforms and across a distributed 


processing, heterogeneous network in the course of conducting an operational task: 


"...[he user inserts his or her Fortezza card into the work station card 
reader, authenticates against the card and then downloads an Applet and begins its 
execution. The Applet communicates with a server using either CORBA method 
invocations or DCE remote procedure calls. The Applet and/or the server with 
which it is communicating specify via CORBA/DCE APIs the amount and type of 
security to invoke: authenticate the user (or the application server), verify that 
transmitted data has not been modified, completely encrypt all communication, etc. 
CORBA or DCE, in turn, utilizes the Fortezza and X.500 APIs to perform the user 
authentication, encryption, etc. Thus, Java builds its interprocess communication 
on top of either CORBA or DCE, which in turn builds its security on top of 
Fortezza and X.500." 


From the preceding paragraph one can infer a strong commitment on behalf of the DOD's 


Defense Information Systems Agency (DISA) toward two trends: distributed computing in a 
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heterogeneous environment, and the use of legacy security mechanisms to implement local 
security policies. [CSC97] describes the four cornerstones of a distributed security infrastructure 
for the network-centric GCCS: Fortezza, X.500, CORBA, DCE. Fortezza is a standard for 
public/private key cryptography and is available as a PC card implementation for those platforms 
supporting this mechanism. X.500 is an International Standards Organization (ISO) standard 
which specifies a global, hierarchical name service implemented as a distributed database 
accessible via Lightweight Directory Access Protocol (LDAP) clients or by applications using the 
X.500 client APIs. Entries contained within an X.500 directory are treated as objects, fully 
configurable and consisting of a collection of attributes. In the GCCS infrastructure, X.500 will 
serve two purposes: as the repository for public key storage in the Fortezza scheme, and as a 
white pages for the Defense Message System (DMS), the DOD's projected replacement for the 
legacy AUTODIN messaging system. The Object Management Group's (OMG) Common Object 
Request Broker Architecture (CORBA) is a proposed architecture for the creation and interaction 
of distributed objects, and the Distributed Computing Environment (DCE) is a comparable 
architecture standard proposed by the Open Software Foundation (OSF). A deliberate 
investigation into the complexity of trusted paths, and the mechanisms required to realize them, 
illustrates why the previously described technologies are just a few of many potential solutions to 
the problem of secure computing in a distributed, heterogeneous environment. 

The fundamental requirement for two processes to communicate securely in a computing 
environment is encapsulated in the concept of a trusted path. At the simplest level, a process 


currently running in the Central Processing Unit (CPU) might communicate directly with a 
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process driving an Input/Output device, such as a keyboard or harddrive, via an interrupt-driven 
data transfer mechanism known as a bus, or with another embedded processor such as might be 
found on a video card or modem. At the most complex level, communicating processes might be 
executing on physically distinct machines separated by thousands of miles and subjected to the 
protocol packaging and unpackaging of network processors responsible for routing data between 
the two processes. The establishment of a trusted path between two communicating processes 
certainly becomes more difficult to achieve as the number of required cooperating and assisting 
processes responsible for that communication increases. Intuitively, it becomes much more of a 
challenge to anticipate the numerous "portals" for attacking data transiting over miles and 
between machines than it is to plan for the protection of data transiting over inches and within the 
confines of a single machine. And yet the computing patterns of today point to an ever-increasing 
need to connect more computing machines together via networks and inter-networks that are 
increasingly subject to malicious attacks. In order to combat these attacks, current trends in 
computing point toward the use of computer-derived manifestations of long trusted human 
mechanisms, such as trusted paths and secure domains of operation, through the use of 
certificates of trust, encryption of data, and signatures as the means for guaranteeing, respectively, 
authenticity, secrecy, and integrity of the data transiting between two communicating processes. 
Demonstrating a mechanism for the establishment of a local trusted path, the 
[GARFINKEL96] text describes a procedure between the operating system and the login program 
which is invoked via signals from the keyboard receiving its input from the human operator. 


Specifically, the operating system employs a mechanism to kill all running processes upon receipt 
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of a particular signal from the keyboard. This policy ensures that the only running processes are 
those legitimate processes associated with the real operating system. What makes this type of 
trusted path mechanism possible is the presence of both a direct path between devices and a 
proprietary addressing scheme, 1.e., MCA, ISA, IRQ, etc., to foil the attempt of any malicious 
process attempting to masquerade as a legitimate process. 

But establishing direct and trusted paths between processes identified by non-standard, 
close-ended addressing schemes, such as the mentioned bus schemes, is neither practical nor even 
interesting, given the scale in which people expect to compute and communicate today. In order 
to close the physical distance between human and computing activities we've achieved the affect 
of logical collocation through the implementation of standardized datalink, network, and 
inter-network-level computing protocols. And though we've significantly complicated the task of 
establishing trusted paths between communicating processes, our need for trusted paths has only 
increased: the speed at which we've connected together our computing devices is exceeded only 
by the speed at which we've devised ways to automate so many human activities. Further 
complicating the task of creating and sustaining trusted paths is the shift in thinking about the 
ways in which we program: from procedural to object-oriented, from writing code to automate 
the conduct of a transaction to writing code which simulates two or more transacting objects. So 
not only are we concerned with guaranteeing the authenticity, secrecy, and integrity of transiting 
data, but also with programming transiting binary globs of intelligence which can alter the way in 
which our two (or more) processes are communicating to more closely mirror the real world 


events we seek to automate. Butif the future of computing points toward an ever-increasing 
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need to communicate over inter-networks, as client objects, server objects, and middle-tier broker 
objects, and within the new paradigm of object-oriented programming which shifts focus from 
programming the procedural to programming the behavior and the interactions of objects, then we 
need to identify the means with which we can provide the authenticity, secrecy, and integrity that 
communicating processes require to establish a trusted path in this new environment. Perhaps the 
widely endorsed, object-oriented standard middleware architecture, CORBA, and the rapidly 
growing, object-oriented programming language, Java, are the best tools currently available to 
developers to achieve those means. Furthermore, there exist projects, such as Trusted 
Information Systems’ (TIS) SIGMA, which have examined the capabilities of these development 
and runtime environments and derived potential solutions to the problem of trusted 
communication between objects over an inter-network. 

There are two principal advantages to the developer using Java and CORBA tools 
together to develop for a distributed, heterogeneous computing environment composed of an 
array of different computer architectures, operating systems, and network protocols. The 
CORBA specification provides an environment and a standard for writing and reading object 
interfaces. These allow the user to preserve his investment in legacy code by "wrapping" these 
legacy “objects” in a standard Interface Definition Language (IDL) interface, which is then 
propagated across the Object Request Broker, or "ORB" bus, so that client objects can recognize 
and invoke the published methods of the server objects. The Java standard, on the other hand, 
provides a tool with which the developer can create, in any Java development environment, the 


implementation for either the client or server objects, or both, with the result that the compiled 
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Java "bytecode" is portable across any computing platform running the language standard Java 
Virtual Machine (JVM). This makes it an attractive alternative to writing and compiling the same 
objects on each of many desired platforms. What is compelling about the capabilities inherent in 
these two software development standards is that users can take advantage of existing legacy 
authentication mechanisms such as Kerberos servers and encryption mechanisms such as Fortezza 
and concentrate on building secure clients and middle-tier brokers guaranteed to run on any 
platform running aJVM. [ORFALI97] describes CORBA as bringing to distributed computing 
“network transparency" while Java brings to heterogeneous computing "implementation 
transparency." 

A CORBA/Java architecture is designed to provide the infrastructure for moving objects 
across a Transmission Control Protocol/Internet Protocol (TCP/IP) network and for enabling 
communication between those objects. It is proposed as an alternative architecture to that 
provided by existing TCP/IP distributed processing protocols such as Common Gateway 
Interface/HyperText Transfer Protocol (CGI/HTTP), JavaSoft's Remote Method Invocation 
(RMI), and Microsoft's Distributed Component Object Model (DCOM). The CGI/HTTP 
architecture is currently the most popular model for providing the means for portable clients 
(generally a JVM running in a Web Browser) to access data from legacy database servers. While 
this functionality provides a significant leap over previous proprietary architectures for 
client/server distributed computing, it does not address the need to build client and server objects 
which can determine requirements and request services dynamically, at runtime. RMI and 


DCOM, on the other hand, do provide the architecture for distributed computing with objects. 
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However, they are proprietary solutions with acceptance limited to specific targeted communities. 
CORBA is the standard developed by the OMG which has been embraced by over 700 computing 
industry companies. Likewise, the Java language is being widely embraced for its highly 
recognizable syntax (C, C++ like), its strong software engineering attributes (Ada95 like), its 
strong object-oriented nature (Smalltalk like), and its support for key distributed object-oriented 
computing concepts such as multiple threads of execution and its built-in networking Application 
Programming Interfaces (APIs). Finally, a key component of the CORBA/Java architecture is the 
increasing acceptance and deployment in commercial products of the Internet Inter-ORB Protocol 
(IOP), a principal TCP/IP protocol standard for managing communication between objects and 
different ORBs on a TCP/IP network, discussed in greater detail later. 

The CORBA specification is purposefully neutral with regard to the programming 
language of choice for the implementation of security policy objects, or other CORBA objects for 
that matter. Java is a leading candidate for several reasons: the Java language specification brings 
to the table a set of language-specific mechanisms for achieving object-oriented programming, 
multi-threaded performance, and dynamic deallocation of memory no longer in use; it also brings 
a runtime environment with specific rules for trusted access to system resources. Given the 
growing popularity of the JVM runtime environment as a host environment for the execution of 
network distributed mobile code, and anticipating a day when JVM-hosted applets might be 
performing the preponderance of computation at the client level, an investigation into the security 
policy and mechanisms of the JVM is highly relevant. Because even the most robust 


authentication mechanisms, encryption algorithms, and integrity-checking schemes are trivial 
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obstacles to a malicious individual with the capability to manipulate the runtime environment 
itself. 

The JVM presents a seemingly uniform interface to the Java programmer which permits 
him to concentrate on writing classes which may invoke (and assume the automatic invocation) of 
the targeted JVM security mechanisms, regardless of the platform that JVM is running on. In 
reality, however, each JVM is in fact, platform-specific. JVM vendors are given great leeway to 
pick, choose, and implement the type and degree of security mechanisms identified in the JVM 
specification. This flexibility allows for Applet viewers (SVMs) to be written for inherently more 
trusted environments, such as a corporate intranet or secure Local Area Network (LAN), as well 
as for untrusted environments, such as a general-purpose, commercially distributed Web browser 
might be used in. The specification identifies two layers of defense: the first is a mechanism for 
generating and validating digital signatures; the second is a policy, the "sandbox," which defines 
the system resources which are within and off-limits to the executable mobile code. Applets with 
validated signatures are permitted the same execution privileges as locally stored application code. 
Locally stored application code, though not guaranteed to be free of malicious code, is assumed 
to be; the reality being that any executable code, regardless of origin, must ultimately be given the 
green light or rejected by a user at some point in time, based upon local procedures for obtaining 
and loading that code to local storage. The JVM uses three mechanisms to implement its sandbox 
policy: the Bytecode Verifier, the Class Loader, and the Security Manager. [FLANAGAN9Q6] 
lists the following privileges unavailable to an unauthorized Applet: reads, writes, deletions, and 


renaming of files; creating, removing, and viewing directories; searching for a file or reading a 
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file's attributes; creating network connections to any computer other than the originating host; 
listening for or accepting network connections on any local ports; creating a top-level window 
without indicating that the window is "untrusted"; obtaining current user name or home directory; 
defining system properties; running other programs locally; causing the Java Interpreter to exit; 
loading dynamic libraries locally; creating or manipulating threads that are not part of the Applet's 
ThreadGroup; manipulating any ThreadGroup other than its own; creating a ClassLoader or 
Security Manager object; specifying network control classes; accessing or loading classes in any 
package not in the standard API eight; or defining classes that are part of packages on the local 
system. 

The first of the JVM security mechanisms, the Bytecode Verifier, has the responsibility for 
checking downloaded executable code for namespace or type conversion violations. 
[FLANAGAN96] notes that the Bytecode Verifier ensures that the code is valid JVM code, 
neither overflows nor underflows the stack, does not use registers incorrectly, and does not 
convert data types illegally. The principle concern for the Bytecode Verifier is that malicious 
code might forge pointers or use memory arithmetic to escape the "sandbox" and gain access to 
regions of memory assigned to other applications or to the operating system. An additional 
concern to the Bytecode Verifier is that malicious code might cause the Java Interpreter to 
become unstable and take advantage of resulting or previously existing security holes. The 
responsibility of the ClassLoader is to dictate the runtime environment by installing each Applet in 
its own namespace and by prohibiting Applets from seeing and referencing classes from outside of 


its namespace. This denies a malicious Applet the opportunity to replace the Java API class 
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libraries with its own versions. Finally, the Java Security Manager mechanism consists of a 
collection of mechanisms, or methods, which can be used by the system to verify whether or not 
certain operations are allowed in the current runtime environment. It is the Security Manager 
object instantiated by a particular Applet viewer which enforces the security policy specified by 
that JVM. 

Though the Java language specification is inherently network and distributed computing 
oriented, it still must rely upon some lower level protocol to enable the movement of those 
distributed objects. Distributed computing which could be achieved on a large-scale and in a 
non-proprietary fashion arrived in the mid-1980s with the work of Sun Microsystems and UC 
Berkeley on the Remote Procedure Call (RPC) protocol. This established a mechanism for 
allowing a process to invoke the computational functionality of a remote machine across a 
TCP/IP network. The principle advantage that invoking object methods via a CORBA ORB has 
over more traditional methods of invoking functions across a network, such as RPC, is that, with 
RPC, the called function has no state. The calling object is invoking a statically determined 
function with statically determined data sets. With CORBA, on the other hand, the calling object 
is invoking a specific function (method) of an object which has state, and the results of the call are 
dependent upon the dynamically determined condition of the called object's data sets (attributes) 
at the time of the call. In other words, the polymorphic behavior that we have come to expect in 
local computations in programs written in languages which support that behavior, can now be 
realized across a network in a distributed, heterogeneous computing environment. Specifically, 


{ORFALI197] describes how a CORBA ORB provides for either the statically defined or the 
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dynamically discovered invocation of remote object methods, language-neutral data types, 
runtime tables of data (metadata) which allow client objects to dynamically discover the methods 
of server objects, and transparency to the programmer with regard to issues of transport, client 
and server location, object activation, and byte ordering. 

In addition to the ORB, which dictates the mechanism for invoking the methods of remote 
objects, the most recently adopted CORBA specification, CORBA 2.0 approved in 1995, defines 
a set of 16 CORBA system-level services which define the means for creating, naming, copying, 
moving, deleting, registering, locking, relating, and publishing objects and information about those 
objects. These services also include rules for committing on transactions between objects, a 
superset of Structured Query Language (SQL) operations to support access to Database 
Management Systems (DBMS), a licensing service to support fair and mediated access to certain 
objects, a time service to synchronize interactions between objects, and a security service, defined 
below in greater detail, which specifies rules for authentication, access control lists, 
confidentiality, and non-repudiation. [ORFALI97] describes the advantages of developing in a 
CORBA environment by using the example of developing a car. The developer can create a car 
“component” by inheriting concurrency, persistence, and transaction awareness from the defined 
CORBA services. Similarly, a developer could create security policy objects which simplify the 
means by which security policy is created, published, and enforced across a heterogeneous 
network. 

The CORBA security environment defined in the CORBA 2.0 specification describes a 


security model and architecture, and it leaves the selection of security mechanisms to apply to that 
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model up to the implementor. Possible mechanisms for employment in a CORBA security model 
include Kerberos, Secure RPC, and Secure European System for Applications in a Multivendor 
Environment (SESAME). The principle motive of the people responsible for developing this 
specification was to decouple the implementation of security mechanisms from the implementation 
of client and server processes and applications. In other words, developers would be free to 
implement security mechanisms into their client and server objects, but could also expect to 
receive the protections offered by authentication, access controls, encryption, signing, and 
auditing which can be designed into the ORB itself by the ORB vendors. As a means to achieving 
these security protections, it is the intention of the specification authors that developers of 
CORBA security mechanisms will provide for a Credentials object, created when a user logs in or 
a process is invoked, which will contain the user's/processes' privileges regarding roles, groups, 
and security clearance. Objects then invoked by the ORB will access the Credentials object as a 
first step in determining the identity and pnvileges of the invoking object. 

A recurring theme in the discussions of secure computing within a heterogeneous, 
distributed computing architecture is the notion of a trusted intra-network, or secure domain. In 
their SIGMA project, TIS speaks of these domains as "enclaves." The project managers selected 
the term enclave to describe a network environment which retains interoperability with other 
networks but is nevertheless protected from those outside networks through locally established 
security policies. The [GARFINKEL96] text presumes that the nature of trust within the enclaves 
themselves is assured through traditional measures such as good hiring practices, good account 


administration, good password assignment, and good physical security of the local area network. 
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For this reason the text is primarily devoted to the discussion of inter-network security. In 
military computing, where existing personnel and weaponry form a strong barrier to potential 
physical threats to a network, and where a rigid policy regarding the recruitment of candidates 
and the training of operators forms a significant first layer of defense, we make the same 
assumptions regarding the security of our own enclaves with the result that we, too, are 
increasingly concerned with the inter-enclave threats against which our enclaves are most 
vulnerable. [GARFINKEL96] describes in great detail the policies and mechanisms available to 
protect these trusted enclaves from networks external to them through a combination of chokes 
and gateways which, when properly configured, constitute a firewall; as well as through simpler, 
process-independent mechanisms such as wrappers. Both of these constitute aggressive 
mechanisms for the rigid filtering of suspicious IP packets and for the use of proxy processes 
which handle internal and external requests for service. But current firewall mechanisms are 
incapable of completely addressing the complex security needs of objects which are interacting 
across the inter-network. It is the interconnection between these trusted and untrusted enclaves, 
the gateway and the policies and mechanisms which compose the gateway, which 1s the target of 
efforts to combat threats to the network and is the focus of effort in the SIGMA project. 

TIS's SIGMA project is a research effort developed to investigate and prototype a 
collection of security mechanisms which implement domain-specific security policies between 
trusted and untrusted systems across a heterogeneous distributed computing environment based 
on CORBA interoperability. From "http://www.tis.com/docs/research/distributed/sigma.html", 


the purpose of SIGMA is threefold: 
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Develop security mechanisms for protecting an enclave by controlling access by 
other enclaves with which it interoperates. 

Improve the state of the art of security mechanisms for object-oriented distributed 
systems. 

Extend interoperability access controls to apply to heterogeneous security 
mechanisms and disparate policies of different enclaves. 


The SIGMA project recognizes and addresses the need for communication between three 
distinct enclave types: a Multi-Level System (MLS) enclave in which information is controlled by 
strong label-based separation mechanisms; a Domain and Type Enforcement (DTE) enclave in 
which information is subject to complex role-based policies; and a Commercial Off The Shelf 
(COTS) enclave, in which information is subject to unknown or untrusted security policies. The 
project further recognizes that even among like enclave types, there will be differences in security 
policies, security mechanisms, and levels of assurance. [BENZEL96] documents an analysis of 
security policies and mechanisms in the current CORBA security specification and concludes the 
following topics are not adequately addressed: required security functionality for interoperability 
between enclaves and high assurance mechanisms for interoperability within enclaves. 

[BENZEL96] identifies one significant obstacle facing the CORBA security object 
developer as being the large-scale deficiency in common commercially sold Operating Systems to 
guarantee that developed security components cannot be bypassed or tampered with. 
Contributing to this concern, the authors of the study have concluded that, due to performance 
concerns, ORB implementations largely consist of library modules residing in the same process 


address space as the client and server object processes they are designed to support. This 
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prevents the establishment of independent security mechanisms which can run, monitor, and 
interrupt questionable transactions. 

As mentioned previously, the question of inter-enclave security 1s one which can be 
considered outside of the context of the given security policies and mechanisms of the enclave 
itself. The authors in [BENZEL96] stress that the single point of control for a network that is the 
network gateway is not so much a design strategy as much as a consequence of network 
architecture. This consequence presents an opportunity for the network security planner to 
perhaps compensate for the security weaknesses inherent in his deployed Operating Systems: 
whatever high-assurance security mechanisms may be absent in local OS's can be deployed at the 
network gateway in the form of choke mechanisms which provide IP packet-level monitoring and 
discarding, and in the form of gate mechanisms which provide proxy applications for 
accomplishing remote processing. Any security mechanisms implemented at the OS, application, 
or ORB level within the enclave only complement those established at the network gateway and 
constitute part of a “defense in depth" security policy and a prudent means for dictating the 
practice of secure computing within the enclave. 

In SIGMA project terminology, the single point of access control for the network in 
question 1s called the ORB Gateway. Like a network firewall, the ORB Gateway consists of a set 
of security mechanisms which examine incoming and outgoing data to determine its compliance 
with the network security policy. Unlike a firewall, though, the ORB Gateway performs its 
functions by interrogating, authenticating, and validating objects and object requests before 


permitting their movement into and out of the enclave. The methodology for implementing the 
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ORB Gateway security mechanisms is the concept of DTE. It is through the distinct DTE 
signature of each application service, method, object, object attribute, and invoking object 
attribute that the security mechanisms of the ORB Gateway are able to establish the degree of 
trust specified by the network security policy. 

A principle concern of CORBA ORB and CORBA object developers, and of the SIGMA 
project, is the movement of objects, security-related or otherwise, through that single point of 
access and across the distributed, heterogeneous network. In an environment in which 
competing, distributed, object-oriented computing paradigms abound, there is a requirement for a 
TCP/IP-based protocol which enables communication between objects managed by different 
ORBs. That protocol is the Internet Inter-ORB Protocol (IIOP), and it represents the common 
language between different ORBs which permits one ORB to correctly interpret the requests and 
responses of another, dissimilar ORB. IIOP makes the assumption that it is using a 
connection-oriented TCP session and it specifies to each ORB the acceptable data representation 
and message formatting. This is accomplished through Common Data Representation (CDR) 
coding, which defines a coding for all Interface Definition Language (IDL) data types, including 
primitive types, structured types, and object references. However, since most current firewalls do 
not support the capability to identify and service IIOP packets, the SIGMA project seeks to 
configure a traditional network firewall which sends IIOP packets to an ORB Gateway configured 
to handle only IOP traffic. Incorporating a firewall feature known as a "plug", the firewall can be 
configured to forward to the ORB Gateway all IIOP traffic received on a particular TCP port. An 


additional reason for isolating IIOP packet processing from the network firewall is the complexity 
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of that processing, which contradicts the goal of incorporating small, simple, well-documented 
functionality within the firewall to filter out suspicious data packets. 

[BENZEL96] identifies three forms of restriction performed by the ORB Gateway which 
demonstrate how an ORB Gateway matches and exceeds the capability for secure distributed 
computing that is provided by traditional firewalls. The first restriction is on the enclave-resident 
CORBA-based application services available to outside users. The CORBA model provides for 
both the static and dynamic discovery of application services through the publishing of interface 
definitions in a common IDL. The ORB Gateway will be configured with information pertaining 
to the enclave application services, including which services are accessible to outside users and 
over which communication ports those services may be requested. The second restriction is on 
the specific methods which can be invoked by an outsider; perhaps a subset of those methods 
offered by the CORBA server object. Reasons for restricting access to certain methods might be 
to provide read-only or write-only access to a particular server object in order to dictate in what 
way client objects may and may not alter the state of the server object. The enforcement of 
method restriction is controlled by the composition of a configuration list of methods used by the 
ORB Gateway to implement the enclave security policy. A third restriction encapsulates what is 
unique about CORBA and object-oriented programming: the restriction of specific objects to 
requesting objects without regard to the presence or absence of restrictions specified for access to 
methods or services as mentioned above. 

[BENZEL96] identifies two approaches for an ORB Gateway using authentication data to 


restrict outside access to enclave CORBA objects. In the first approach, access checks are 
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performed by the ORB Gateway based upon a reconciliation between the contents of locally held 
configuration data and the object request message data. Authentication of the object request is 
handled internally, allowing the security administrator to develop separate and distinct security 
policies regarding access control for users within and outside of his enclave. In the second 
approach, access checks are not performed. Instead, the authentication mechanisms and data of 
the foreign enclave are translated into the comparable authentication mechanisms and data of the 
local enclave. With the bundled authentication data, or "credentials", the object request can be 
passed into the enclave where the ORB can make the appropriate access control decisions just as 
if the request had been initiated from within the enclave itself. ‘This approach has the advantage 
that all access control decisions to an enclave object can be made at a central point, perhaps 
simplifying the administration of mechanisms such as access control lists. 

Together, the Java language specification, the CORBA specification, and TIS'’s SIGMA 
project represent three new technologies which can significantly enhance the establishment of the 
trusted paths between communicating processes which GCCS operators require in a distributed, 
heterogeneous network. TIS's approach to establishing trusted paths between enclaves of 
computer networks is noteworthy for two reasons: its recognition that objects present the most 
promising method for encapsulating the security credentials of a given person or process, and its 
adherence to an open architecture which permits interoperability between competing ORB 
implementations and between enclaves with significantly varying internal security policies. The 
CORBA standard provides a framework both for supporting the interoperability between different 


proprietary object implementations and for defining an environment in which legacy 
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implementations can interact with fully object-oriented implementations. Finally, the Java 
language specification provides the basis for multi-threaded processing, platform-indepedent 
Graphical User Interface (GUI) construction, and built-in support for inter-networking which 
permits development of the security mechanisms prescribed by CORBA and SIGMA and are 
necessary for the establishment of trusted paths between users and processes in a distributed, 


heterogeneous computing environment. 
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